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SEQ 0001 


/REM_ 
IDENTIFICATION 
ID: AC=TO9SA=MC 
PRODUCT TITLE: CVTSBAO TSVOS CTRL LT2 
AUTHOR: DICK GORDON 
MAINTAINER: SCOTT SNOWDON 
DATE: MARCH 08, 1982 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1982,1982 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
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1.0 GENERAL INFORMATION 
1.1. PROGRAM ABSTRACT 


eal IS_A PDP=11/23 RESIDENT DIAGNOSTIC rool CHECKS THE FUNCTIONALITY 
TSVOS_ MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP=11//23 SYSTEM 
(0-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 
ON CERTAIN FUNCTIONS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE eT a ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AN 


E 
TO THE XXDP+ USER'S MANUAL. RE IS A BRIEF DESCRIPTI 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


PDP-11/23 PROCESSOR AND MEMORY 
CAUTION:DIAGNOSTIC REQUIRES 32k WORDS oka MEMORY 
(28K USEABLE AND 4K RESERVED FOR 1/0 PAGE) 
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CONSOLE TERMINAL 
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+) 


1.3. RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS GUIDE; DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSV05-TM-001 
DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVO05-IN-001 
DATE: AUGUST 1982 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP=11/23 rr PROCESSOR AND MEMURY 


FUNCTIONAL CONSOLE T 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 


SEQ 0003 


USER DOCUMENTATION 


MACRO M1113 25-MAY-82 09:19 PAGE 4-1 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+) 


1.5 ASSUMPTIONS 
oat HARDWARE EXCEPT THE HARDWARE reat TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPO 
La La BEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA HAS RUN SUCESSFULLY. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE A my gp ba aivet 2 + a 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AN E 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A _UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4. roll 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF ‘‘START"’. 


2.1.1 OPERATOR COMMANDS 


ta TSV05 reg ois) IS A PDP=11/23 DIAGNOSTIC SUPERVISOR A rag to 
ROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHOUS XXDP+ USERS GUIDE DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


-R VTSB?? 
DIAG. RUN-TIME SERVICES REV D. APR 79 
CVTSB-A-0 


SEQ 0004 


: USER DOCUMENTATION 





MACRO M1113 25=MAY-82 09:19 PAGE 4-2 


marin T LOGIC DIAGNOSTIC#*** 
> $v05 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY Si ae te OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMAN ALL OF THE LEGAL 
SWITCHES ARE TABULATED ag WITH A BRIEF DESCRIPTION OF EACH. : : 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘‘DDDDD"'. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
STRING OF TEST 


BE RUN. L OT 
/PASS:DDDDD EXECUTE pDbbp PASSES (DDDDD = oT 0 64000) 
/FLAGS:FLGS ia sections 3. FLAGS. FLAGS ARE DESCRIBED 


/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST sf he gh a ONLY THOSE UNITS rtereste 
N THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS:1=5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER “ 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE ‘'/TES:1=5°' INSTEAD OF **/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS EOP UNITS 


START x Xx Xx x x 
RESTART X x x x x 
ONT INUE x x x 
PROCEED K 
DROP K 
ADD x 
PRINT 
DISPLAY x 
AGS 
ZFLAGS 
IT 


2.3 FLAGS 


SEQ 0005 


a 


—— 
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+31 “A USED TO = UP CERTAIN OPERATIONAL TANT laa SUCH AS 
ING ON ER UP AND REMAIN 


ROR. ALL FLAGS ARE C 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO — AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITC THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL pe ey 
ERROR TYPE, NUMBER, PC, TEST UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS. (THOSE 
CALLED BY PRINTX MACRO’S 

PRI DIRECT yh et TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL’ ON — 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 


STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR ry AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 


SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “'BELL’’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE : IER:B0E 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES wel PROMPT 
THE USER FOR HARDWARE INF _ athee BY TYPING “*CHANGE HW (L) ?°° 
YOU MUST ANSWER “'Y’" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ‘‘PRELOADED*’ og or SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S MANUA WHEN YOU ANSWER THIS 
QUESTION WITH A ‘'y*’, tes RUNT IME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL) 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?°* QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


SEQ 0006 


r 
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ON A ‘'N’’ (NO) RESPONSE TO THE ‘‘CHANGE HW?'’ QUESTION, THE DIAGNOSTIC WILL 


RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSDB = 172520, VECTOR = 224 


ON_A ‘'Y’’ (YES) RESPONSE TO THE QUESTION, ie FOLLOWING reas tect WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
TW E TAKEN IF ONLY A a pee | RETURN IS TYPED AS A 
RESPONSE. A °(D)"" IN A QUESTION. es thae ATES THAT DECIMAL NUMBER IS 
REQUIRED AS A_ RESPONSE. AN ‘(0)"* INDICATES AN MOCTAL NUMBER IS BEING 
Syl cor vés. Oe — THAT A LOGICAL RESPONSE IS TO BE MADE: 


# UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? ~ 171 ane OF INTERRUPT 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE *# UNITS?°' QUESTION. LOGICAL UNIT 

NUMBERS ARE ASSIGNED te BEGINNING AT 0. UP TO FOUR UNITS CAN BE 

SELECTED FOR TESTING A OWS: 

UP TO 4 TSVOS CONTROLLERS OBER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFi_.. YOU HAVE ane ta THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME oe nts or E CIFIC 
OPERATION MODES. YOU ait otk PROMPTED BY eS 

IF YOU A TO CHANGE AN AMETERS, ANSWER BY T ine 

*"Y’", THE SOFTWARE QUESTIONS. AND THE DEFAULT VALUES. ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S) . 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. , 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE ‘'Y’* TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK=RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.> 


SEQ 0007 


= ] 
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| 
} 
| 
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2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT gay as A pratt sy UNDER TEST. THE SIMPLEST 


WAY TO BUILD THIS TABL SWER ALL QUESTIONS FOR EA 
UNIT TO BE TEST IF Y LTIPLEXED as SUCH AS 
A_MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 


E DRIVES 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO Hip gael A MORE EFFICIENT outa art SUPPOSE YOU ARE TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) git TO IT. 
THESE UNITS ARE DESCRIBED BY a Ag. AL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT ARY AMON 

Q-FACTOR. THIS Q-FACTOR MAY BE O oR Ri BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 


SUB-DEVICE # 
Q-FACTOR (0) 0? <CR> 


UNIT 3 
CSR ADDRESS ots — 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) 2?  6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 





SEQ 0008 
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SUB=DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 


* NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
ine THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? _—oo 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0? 1 ,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 2? 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE pays THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. INT a FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q=FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR a tito 160000 FOR — SINCE IT 


E D. HIS CA E 

2. 3, D 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 

BY AbRES Ses. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 

rr ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 

SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 

SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 
# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 1EOgOe<ERD 
SUB-DEVICE # so 7 ? Lp <CR> 


SEQ 0009 
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AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE *'R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE "START" 

5. ANSWER THE ‘*CHANGE HW"* QUESTION WITH ‘’Y'’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "’CHANGE SwW’* QUESTION WITH ‘'N’’ 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR phESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER FLAG ¢ Is SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FOR 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


o WHERE ; — = DIAGNOSTIC NAME 
YPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “'IER’’ OR “'IGR' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
ae AS meister & CONTENTS OR GOOD/BAD DAT ‘. THESE ARE ALWAYS 
PRINTED UNLESS THE “‘IER"’, “‘IBR'' OR “IXR’’ FLAGS ARE SET (SECTION 2.3). 
$4 MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
SSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


SEQ 0010 


ites: 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AN 


THE SECOND T CS FO 
ee REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CVTSB HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: = DESIGNATOR <BIT #> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <8> JONL<5> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINALS IN WORD #9: 

DATMIS<7> ILW<6> OUTRDY<S> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 


MESSAGE BUFFER CONTENTS: 
WORD #0 EXPD: 100020 V: 100020 xXOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 xOR: 000000 
: 000000 : XOR: 000000 
: 000010 : xOR: 000000 
D #4 EXPD: 000000 RECV: 000000 xOR: 000000 
: : XOR: 000000 
: XOR: 000000 
: RECV: 070217 xOR: 000000 
WORD #9 EXPD: 000074 RECV: 000034 xOR: 000040 
ERROR MESSAGE EXAMPLE 2 
THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE.IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 
CV7SB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
OMMAND 


TSSR NOT CORRECT AFTER SPACE RECORDS C 
TSSR = 100214 


TSSR BITS SET: SC,SSR 
TERMINATION CLASS o00s = UNRECOVERABLE ERROR 
PACKET ADDRESS = 026420 
CKET D# = 140010 
PACKET WORD # = 000010 
PACKET WORD # = 000000 
PACKET WORD # = 000024 
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ERROR MESSAGE EXAMPLE 3 
THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTSB HRD -. 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 

MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 


H CAN BE _US ROL _H THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 
SUCCESSFUL RUN EXAMPLE (PDP-11/23) 


DR>STA/FLA:PNT : HOE : UAM 

UNITS (D) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS THREE 
SWITCHES ON WHICH ARE ‘PRINT EACH TEST NBR AS EXECUTED’ . ‘HALT ON 
ERROR’’ AND "'RUN IN UNATTENDED MODE"’. 


NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 


TST: 001 Hadi #3 TEST 
TST: bog BASIC WRITE SUBSYSTEM MEMORY TEST 
TST: 003 DMA MEMORY a TEST 


: KS Test 
TST: 010 STAND-ALONE MANUAL JATERVENT TOM NOT oe ecuiee TEST 
TST: 011 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 
TST: 012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 


SEQ 0012 
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NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE ‘'/PASS:'* SWITCH. 


| PROGRAM RUN TIMES 

| THE AVERAGE RUN TIMES OF THE a a ARE LISTED BELOW. THESE risus? ARE 

TO BE USED AS A I THE TIMING WAS DONE ON A PDP=11/2 
PROCESSOR WITH A LA=34 CONSOLE. 
THE PROGRAM RUNS _IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT a9) EACH TEST IS a ateaat BY THE NUMBER OF TIMES INDICATED BY 


THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A ‘‘Y*’ (YES). 


TEST N/I_ ITER DEF 
NUMBER SECS. SECS SECS. 
1 15 50 35 
2 1 6 5 
3 1 1 0 
& 110 540 430 
5 1 10 9 
6 10 120 110 
7 1 3 2 
8 15 15 12 
9 17 17 13 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 
Q.V. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 

5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND, 

Age pataeaa REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGE HW (L) ? 


# UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? Hy THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 


| VECTOR> 
THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 


SEQ 0013 
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SEQ 0014 


lata x (CONTROLLERS) SPECIFIED IN THE ‘# UNITS?’* QUESTION. LOGICAL UNIT 


NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A_START, RESTART OR CONTINUE THE SUPERVISOR 
poet Guse CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


6.0 TEST SUMMARIES 

TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
TEST DESCRIPTION: 
THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMMAND 
INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP 
THE COMMAND, MESSAGE AND CHARACTERISTIC IMAGE BLOCKS 
IN THE CONTROLLER RAM CORRECTLY. 

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 
THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
BSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. 4 ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMAND DECODING AND HANDLING SEQUENCES. 

TEST 3: DMA MEMORY ADDRESSING 


THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND 
spots: ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED BY T 


USED FOR DMA TRANSFERS. 


PPP T PTT ii iii it iiiiiiiiiiiiiitiiiitii yt 
CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAIL.BLE ADDRESS LINES 
ARE ONLY CHECKED WHEN RUNNING ON A 11/23B SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 


RAAAAAAARARAAAEAAAEERAERAAEEARERAAEAAEEEAEEREEEREERAERAEAEERERREREREEEREREE 


TEST 4: RAM EXERCISER TEST 
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TEST 5: 


TEST 6: 


TEST 7: 


TEST 8: 


TEST 9: 


2 
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THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 


EXTENDED FEATURES SWITCH AND TIMERS A,B 
TEST DESCRIPTION: 


THIS TEST VERIFIES THE INVERT EXTENDED FEATURES FUNCTION 
CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH AND 
THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTLY. 


FIFO EXERCISER 
TEST DESCRIPTION: 


THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND 
CONTROL LOGIC. 


STATIC TRANSPORT BUS INTERFACE TEST 
TEST DESCRIPTION: 


WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 
DO WRITE CHARACTERISTICS TO CHECK FOR hy: a FEATURES SWITCH 
IF EXTENDED FEATURES HARDWARE SWITCH CLEAR THEN: 
DO WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES. 
DO WRITE CHARACTERISTICS TO or RESERVED UNIT 7 
DO A WRITE SUBSYSTEM READ STA 
IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 


TRANSPORT BUS INTERFACE LOOPBACK TEST 
TEST DESCRIPTION: 


THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 

oat hag RECEIVERS, AND SIGNAL LOOPBACK ste a NOTE 
THAT THE STATIC TRANSPORT BUS TEST MUST HAVE RUN 
CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESULTS. 


READ/WRITE DATA PARITY TEST 
TEST DESCRIPTION: 
THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERATOR 


AND THE READ DATA ig CHECKER OPERATE PROPERLY. THE 
TRANSPORT BUS SIGNAL LOOPBACK MODE IS ENABLED AND A 


WRITE DATA TO AND FROM THE FIFO IN LOOPBACK MODE. 
THE PROGRAM THEN CHECKS TO INSURE A READ DATA PARITY 
wr OCCURRED. 

A RESET FIFO IS DONE AND THE READ DATA PARITY 


SEQ 0015 
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ERROR BIT IS A uh v eed IT CLEARED. 
FINALLY A CLEAR WRONG PARITY FUNCTION I N 
AND IT IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK 
MODE WITHOUT SETTING READ DATA PARITY ERROR. 


TEST 10: MANUAL INTERVENTION 


TEST 11: 


TEST 12: 


THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A ‘'TEST'’) 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE Goer a a A PROGRAM ALONE. WHEN 


SELECTION CODES AND SUBROUTINES ARE: 


CODE ROUTINE 


HELP. PRINTS THIS MENU. 

TURN ON ALL M7196 LED INDICATORS 
TURN OFF ALL M7196 LED INDICATORS 
OFFLINE/ONLINE ATTENTION TEST 
WRITE=PROTECT TEST 

PRINT EXTENDED TRANSPORT STATUS 
EXIT (RETURN TO SUPERVISOR) 


Qu kWn—o 


CONFIGURATION TYPEOUT 


THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 


1.0 a OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7196, 
4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 


5.0 yt ag CODE = STATE Eee WRITE ENABLED/PROTECTED) 
F EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRAN SPORT WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 


SCOPE LOOPS 


THIS JS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "'SCOPE 
LOOPS'" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE 7196 MODULE. — THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
LOOP ON ERROR” OR “LOOP ON TEST (SUBTEST) FACILITIES DON'T 


SEQ 0016 
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SEEM TO 7. THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E, st THE HARDWARE - NOT BE tat MS A ISTER 


SELECT C IN TH 
ry ea SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 


CODE SCOPE LOOP 


0 HELP. PRINT THIS MENU. 

1 TSBA READ ACCESS 

2 TSSR READ ACCESS 

3 Pen ebice (TSSR WRITE ACCESS) 

4 TSDB HIGH BYTE WRITE ACCESS 

5 TSDB LOW BYTE WRITE ACCESS 

6 TSDB MAINTENANCE=MODE WORD WRITE ACCESS 

7? TSDBX_(TSSR HIGH BYTE) WRITE ACCESS 
(EXTENDED FEATURES SWITCH MUST BE ON 

TO USE SELECTION CODE 7) 
8 EXIT (RETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, He PROGRAM PROMPTS 


Ha 3 OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS 
E 0-377, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


7.0 MAINTENANCE HISTORY 


REVISION A = MARCH 1982 


SEQ 0017 


| 2 
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SEQ 0018 
2 -TITLE TSV2 = PROGRAM HEADER 
i ~SBTTL PROGRAM HEADER 
10 eMCALL SVC 
11 000000 svc 3s INITIALIZE SUPERVISOR MACROS 
12 ENABLE LC 
13 eNLIST BEX,CND 
19 000000 eENABL ABS,AMA 
20 002000 -=2000 
21 002000 BGNMOD v2 
002000 TSV2:: 
22 
23 p++ 
24 3; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
$ 3: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
8 
29 002000 POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT 
30 002000 HEADER CVTSB.A,0,655., 
002000 LSNAME : : sDIAGNOSTIC NAME 
103 ASCII /C/ 
002001 126 ASCII /V/ 
002002 124 ASCII /T/ 
002003 123 ¥ I /S/ 
002004 102 ASCII /8/ 
002005 000 BYTE 
2006 000 -BYTE 0O 
002007 000 -—BYTE 0 
002010 LSREV:: sREVISION LEVEL 
002010 101 eASCII /A/ 
002011 LSDEPO:: 30 
002011 060 ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000000 -WORD 0 
002014 LSTIML:: sLONGEST TEST TIME 
002014 001217 -WORD 655. 
002016 LSHPCP:: sPOINTER TO H.W. QUES. 
002016 101342 -WORD LSHARD 
002020 LSSPCP:: sPOINTER TO S.W. QUES. 
002020 101474 -WORD LSSOFT 
002022 LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 
002022 002156 -WORD LS$HW 
002024 LSSPTP:: sPTR. TO S.W. PTABLE 
002024 002166. -WORD L$SW 
002026 LSLADP:: sDIAG. END ADDRESS 
002026 102004 -WORD LSLAST 
002030 LSSTA:: ;RESERVED FOR APT STATS 
002030 000000 -WORD 0 
002032 L$CO:: 
002032 000000 -WORD 0 
002034 LSDTYP:: sDIAGNOSTIC TYPE 
002034 000000 -WORD 0 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 -WORD 0 
002040 LSDTP:: 3PTR. TO DISPATCH TABLE 
002040 002124 -WORD LSDISPATCH 
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PROGRAM HEADER SEQ 0019 
002042 LSPRIO:: ;DIAGNOSTIC RUN PRIORITY 
002042 000000 eWORD 0 
002044 LSENVI:: FLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 -WORD 0 
002046 LSEXP1:: sEXPANSION WORD 
002046 000000 -WORD 0 
002050 LSMREV:: 3SVC REV AND EDIT # 

002050 003 -BYTE CS$REVISION 

002051 003 -BYTE CS$EDIT 

002052 LSEF:: ;DIAG. EVENT FLAGS 
002052 000000 -WORD 0 

002054 000000 «WORD 0 

002056 LSSPC:: 

002056 000000 «WORD 0 

002060 LSDEVP:: : POINTER TO DEVICE TYPE LIST 
002060 003402 -WORD LSDVTYP 

002062 LSREPP:: :PTR. TO REPORT CODE 
002062 022664 -WORD LSRPT 

002064 LSEXP4:: 

002064 000000 -WORD 0 

002066 LSEXPS:: 

002066 000000 -WORD 0 

002070 LSAUT:: ;PTR. TO ADD UNIT CODE 
002070 022352 -WORD LS$AU 

002072 LS$DUT:: 3PTR. TO DROP UNIT CODE 
002072 022450 -WORD LS$DU 

002074 LSLUN:: ;LUN FOR EXERCISERS TO FILL 
002074 000000 -WORD 0 

002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 003410 -WORD LS$DESC 

002100 LSLOAD:: ;GENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 

002102 LSETP:: ;POINTER TO ERRTBL 
002102 000000 «WORD 0 

002104 LSICP:: 3PTR. TO INIT CODE 
002104 021556 -WORD LSINIT 

002106 LSCCP:: sPTR. TO CLEAN-UP CODE 
002106 022636 -WORD LSCLEAN 

002110 LSACP:: ;PTR. TO AUTO CODE 
002110 022556 »WORD  LSAUTO 

002112 LSPRT:: 3PTR. TO PROTECT TABLE 
002112 021546 -WORD LS$PROT 

002114 LSTEST:: 3; TEST NUMBER 

002114 000000 -WORD 0 

002116 LSDLY:: ;DELAY COUNT 

002116 000000 -WORD 0 

002120 LSHIME:: 3PTR. TO HIGH MEM 
002120 000000 -WORD 0 
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DISPATCH TABLE 


002152 





000014 
023446 


077662 


2 


~-SBTTL DISPATCH TABLE 


p++ 
: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
: IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 12 


LSDISPATCH: 


SEQ 0020 












TSV2 = PROGRAM HEADER 


000003 


172520 
52 002160 000224 
53 002162 000200 
54 002164 


DEFAULT HARDWARE P-TABLE 


2 
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-SBTTL DEFAULT HARDWARE P=-TABLE 


rte 

: THE DEFAULT ergo P=TABLE CONTAINS DEFAULT VALUES OF 
: THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


os BGNHW DFPTBL :DEFAULT HARD=P=TABLE 
.WORD £L10000-L$HW/2 


LSHW:: 

DFPTBL:: 
-WORD 172520 ; 1ST (OF 2) etn 
eWORD 224 + INTERRUPT VECTO 
— PRI04 : INTERRUPT PRIORITY. 


L10000: 





SEQ 0021 


a 


—" 





TSV2 = PROGRAM HEADER 


SOFTWARE P-TABLE 


63 
64 002166 
65 002170 
66 


67 

68 002172 

69 002174 

70 2176 
176 


71. 
72 002176 


000004 


000000 
000000 


000017 
000310 
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SEQ 0022 


-SBTTL SOFTWARE P-TABLE 


p++ 
: THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
3 PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


SFPTBL 
WORD L10001-L$SW/2 


SW:: 

SFPTBL:: 
TRANSTST:: -WORD 0 3; ENABLE TEST OF TRANSPORT(S) IF =1 
NOITS:: -WORD 0 3; INHIBIT ITERATION OPTION. 

é eee = ITERATE. 

3 »e-NZ = INHIBIT ITERATE. 
LERRMAX: : «WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
GERRMAX: : -WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
L10001: 


ENDMOD 


Sag gu: 


SV3 = GLOBAL AREAS 


SOFTWARE P=-TABLE 


mrMrnn Nee 
Swn— COOWOon~ 

So 

oO 

nN 

- 

“ 

o 


33 002176 





TITLE 
-SBTTL 


BGNMOD 
TSV3:: 


-SBTTL 
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TSV3_ = GLOBAL AREAS 


GLOBAL EQUATES SECTION 


TSV3 


GLOBAL EQUATES SECTION 


jot ‘ 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 


3 GET STANDARD EQUATES. 


EQUALS 

: BIT DIFINITIONS 
B1T15== 100000 
BIT14== 40000 
B1T13== 20000 
BIT12== 10000 
B1T11== 4000 
B1IT10== 2000 
BITO9== 1000 
BITO8== 400 
81T07== 200 
B1T06== 100 
BITOS== 40 

IT04== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
81T00== 1 
BIT9== BITO9 
BIT8== BITO8 
BIT7== BITO7 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BIT2== BITO2 
BITi== BITO1 
BITO== BIT00 


> EVENT FLAG DEFINITIONS 


- START== 

RESTART== 
CONT INUE== 
NEW== 


EF 
EF 
EF 
EF 
EF 





EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
NUE COMMAND WAS ISSUE 
; A NEW PASS HAS BEEN STARTE 
; A POWER-FAIL/POWER-UP OCCURRED 


: CONTI 


SEQ 0023 











TSV3_ = GLOBAL AREAS 
GLOBAL EQUATES SECTION 


as 


5 002176 


000250 
177572 


172516 
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; PRIORITY LEVEL DEFINITIONS 


PR1IO7== 340 
PRI06== 300 
PRIOS== 240 
PRI04== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRI00== 0 
OPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


KT11 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
eine VECTOR ADDRESS 


C= 
z*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


DEFINE MEMORY MANAGEMENT REGISTERS 


SEQ 0024 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0025 


~ENDC 

s*USER “‘I'’ PAGE ADDRESS REGISTERS 
UIPARO= 177640 

UIPAR 77 


-IF NB 
;*USER 
PAR 


‘D'" PAGE ADDRESS REGISTERS 
UD 177660 


-IF NB 
z*SUPERVISOR '‘I'* PAGE DESCRIPTOR REGISTERS 
SIPDRO= 





3 = 3OOOO 
AENOALSNS 


‘D'’ PAGE DESCRIPTOR REGISTERS 


WWWWiIRonoNnoNn 
ALNOALNS 


‘I'* PAGE ADDRESS REGISTERS 


= BAHNVIOKOLNOS 


‘D’’ PAGE ADDRESS REGISTERS 


Aro 
No 


| N 2 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0026 


SDPAR3= 172266 
SDPAR4= 175670 
SDPARS= 172272 
SDPAR6= este 
SDPAR7= 172276 
-ENDC 
-ENDC 
s*KERNEL "'I'’ PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 17230 
172302 KIPDRI= 172302 
172304 KIPDR2= 17230 
172306 KIPDRS= 172306 
172310 KIPDR4= 172310 
172312 KIPDR5= 172312 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 
-IF NB 
;*KERNEL ‘'D’* PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPDR1= 172322 
KDPDR2= 172324 
KDPDR3= 172326 
KDPDR4= 172330 
KDPDR5S= 172332 
KDPDR6= 172334 
— 172336 
3*KERNEL ‘‘I'* PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPAR1= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3S= 172346 
172350 IPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172 172356 





em —-« 
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177520 


100000 


000016 


100000 


000001 
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late Con eeeae 


TSVOS REGISTER AND PACKET DEFINITIONS 


SEQ 0027 
-SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


SOME GENERAL EQUATES. 


ERRVEC== 4 : POINTER TO ERROR VECTOR FOR > “a OUT. 
TTIVEC== 60 “ INTERRUPT VECTOR FOR CONSOLE INF: 

TTICSR== 177560 3 BUS ADDRESS OF CONSOLE INPUT 

TTIBFR== 177562 : CONSOLE INPUT DATA BUFFER 

BDVPCR== 177520 : BDVI1 PAGE CONTROL REGISTER 


tt 
sBIT DEFINITIONS FOR TSSR REGISTER 


SC= BIT15 3SPECIAL_ CONDITION 

BIE= BIT14 BUS INTERFACE ERROR 

SCE= B1T13 SANITY CHECK ERROR 

RMR= BIT12 MODIFICATION REFUS 

NXM= B1T11 sNONEXISTANT MEMORY ERROR 

NBA= B1T10 NEED BUFFER ADDRESS 

HIADDR= BIT9!BITS ; EXTENDED Sp eyte BITS 

SSR= BIT7 :SUB SY or EM READ 

OFL= BI = OFF LINE BIT 

FATERR= BIT4 FATAL TERMINATION ERROR CODES 


TERCLS= BITsie1 12/8171 TERMINATION CODES 


se 
° 


+ ecndalaig FOR EXTENDED STATUS REGISTER 0 


XSOTMK= BIT15 3 TAPE MARK DETECTED 
XSORLS= B1T14 RECORD LENGTH SHORT 
XSOLET= B1T13 sLOGICAL END OF TAP 
XSORLL= BIT12 :RECORD age LONG 
XSOWLE= B1T11 hed | LOCK ERROR 
XSONEF= BIT10 NON EXECUTABLE FUNCTION 
XSOILC= BIT9 ; ILLEGAL D 
XSOILA= BIT8 ILLEGAL ADDRESS 
XSOMOT= BIT? sTAPE I 
XSOONL= BIT 3 TRANSPORT ON LINE 
XSOIE= BIT 2 INTERRUPT ENABLE 
XSOVCK= BIT4 3; VOLUME 
XSOPED= BIT3 sPHASE ENCODED DRIVE 
XSOWLK= BIT2 sWRITE 

XSOBOT= BIT! sBEGINNING OF TAPE 
XSOEOT= B1T0 sEND OF TAPE 


Uh aah FOR EXTENDED STATUS REGISTER 1 


ao-_, 
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TSVOS REGISTER AND PACKET DEFINITIONS 


97 
98 


tt as as a ot os 
MEWN—$OOONAUS WN —OUanN 


— = 
Whonronor 
O00 IOS 


Who 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


byt) teh ant Abate that Ahr abeb typ bye) fury 


WN —O ODBNOUSWN $0 OONOU 





000002 


100000 
040000 


000007 


177400 


000001 


100000 
0 


000006 
000006 


. 2 

X1.DLT = BIT15 ;DATA LATE 
X1.SPARE= BIT14 :NOT USED 
X1.COR = BIT13 RRECTABLE DATA 
X1.MBZ = G11120B1711 B11 ideal Tove] T7981 16eB 1598174 811381 T2+81T0 sALWAYS 0 
X1.RBP = BITS ;READ BUS PARITY ERROR 
X1.UNC = BIT SUNCORRECTABLE DATA OR HARD ERROR 
3% 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
3 (xST2) 
X2.0PM = BIT15 4 Apel 5 IN ee (TAPE MOVING) 
X2.RCE = BIT14 CHECKS RROR 
X2.SPARE= 1113+B1T12+B1111 9811998178 ;NOT USED BY iB bids + 
X2.WCF = BIT10 sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY eons ig bh 
X2.EXTF = BIT7 :1F WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
X2.BUFE = BIT6 iI WRITE CHAR CMD THEN = BUFFERING ENABL EDS 
X2.REV = 000077 WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BIT2+BIT1+BITO’ VF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
3¢ 
3B1T DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
3 (XST3) 
X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
X3.SPARE= BIT7 ‘NOT USED BY TSVOS 
X3.0PI = BIT6 ;OPER a INCOMPLETE 
X3.REV = BITS 
X3.TRF = BIT4 ETRANSPORT RESPONSE FAILURE 
X3.DCK = BIT3 :DEN ny SK CHECK 
X3.MBZ =BIT2+BIT1 T USED ALWAYS 0 
X3.RIB = BITO REVERSE INTO BOT 
34 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
3 (XST4) 
X4.HSP = BIT15 sHIGH SPEED 
X4.RCE = BIT14 sRETRY COUNT EXCEEDED 

-TSM = BIT13 ; TRANSPORT SPECIAL MODE 
X4.MBZ = B1T12+B1T11+B1T10+B1T9+B1T8 sNOT USED ALWAYS 0 
X4.WRC = 000377 sWRITE RETRY COUNT FIELD 


[TSSR TERMINATION CODES (BIT 0-2) 
TSREJ= 3*2 ZCOMMAND REJECTED 
UNREC= 6 SUNRECOVERABLE ERROR 


+ 


[DEVICE REGISTER OFFSETS 


SEQ 0028 


va 


TSV3_= GLOBAL AREAS 
TSVOS REGISTER AND PACKET DEFINITIONS 


a 
& 


ee ee ee ed ee ee ee ee ed ad ed ed ed ed nd ed nd = ow) = = = 


5 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
a) 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
200 


201 


000000 
000002 
000003 
000003 


000017 


000001 


100000 


000200 
000140 
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:TSDB/TSBA REGISTER 


;TSDB/TSBA REGISTER HIGH BYTE 
sTSSR REGISTE 
zTSSR REGISTER HIGH BYTE 


" _TSDB ADDRESS BIT DEFINITIONS 


41716 


= BIT1+B1T0 sADDRESS BITS 17:16 ARE IN 1:0 


$ COMMAND DEFINITIONS 


p. GETSTAT 


3GET STATUS 


= 17 

- INIT = 13 2 INITIALIZE 
P. CONTROL = 12 CONTROL COMMANDS 
P.FORMAT = 11 3 FORMAT 
P.POSITION = 10 POSITION 

- WRTSUB = 6 2 SUBSYSTEM WRITE 
P.WRITE = 5 ;WRITE 
P.WRTCHAR = 4 sWRITE CHARACTERISTICS 

»READ =1 ;READ 


+ 
COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.ACK = BIT15 BUFFER AVAIL FOR  aiieacrnae 
P.CVC = = BIT14 CLEAR VOLUME CH 
OPP = BIT13 ; REVERSE sence OF DATA BITS 
P.SWB = BITI2 SWAP BYTES IN MEMORY 
P.MODE = BIT11!B1T10:81T9/81T8 ERTENBED COMMAND MODE FIELD 
P.IE = BIT7 : INTERRUPT ENABL 
P.FMT= BIT6!BI1TS ZPACKET JUEADER TYPE (ALWAYS=0) 
P.CMD = 37 JOR COMMAND FIELD 
i+ 
: CONTROL COMMAND MODE CODES 
PC..RELEASE = 0*256. he BUFFER 
PC.REWIND = 1*256. sREWIND 
PC .NOOP = 2*256. :NO-OP 
PC. IEREW = 4*256. REWIND IMMEDIATE INTERRUPT 
PC..ERASE = 5*256. SECURITY ERASE 
CONTROLLER RAM DEFINITIONS 
s CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
:CHARACTERISTICS 10 DATA END RAM ADDRESS 
: PACKET BEGIN RAM ADDRESS 
PACKET END RAM AD Ss 
sMESSAGE BUFFER BEGIN RAM ADDRESS 
MESSAGE BUFFER END RAM ADDRESS 





SEQ 0029 


Tat 


a a ee ee ee + 


E 3 
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TSVOS REGISTER AND PACKET DEFINITIONS SEQ 0030 
i : 
$i SREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
$1 ‘ 
217 000006 XSTO== 6 ZEXTENDED STATUS REGISTER 0 (wo WORD 4) 
218 000010 XSTi== 8. TEXTENDED STATUS REGISTER 1 (WORD 5) 
219 000012 XST2== 10. ZEXTENDED STATUS REGISTER 2 (WO WORD 6) 
220 000014 XST3== 12. SEXTENDED STATUS REGISTER 3 (WORD 7) 
321 000016 XST4== 14. ZEXTENDED STATUS REGISTER 4 (WORD 8) 
223 
$56 . 
226 [OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
$55 is 
230 000002 PKLOW = 2 :LOW ORDER CHARACTERISTIC DATA POINTER 
231 000004 PKHI =4 THIGH ORDER CHARACTERISTIC DATA POINTER 
332 000006 PKBCNT = 6 [NUMBER OF BYTES IN DATA PACKET 
334 000010 EXBCNT=10 ZNUMBER OF BYTES IN EXTENDED DATA PACKET 
236 3+ 
337 [DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
239 000000 ; BSELO =0 :BYTE 0 
240 000001 BSEL1 = 1 :BY VTE 1 
241 000002 SEL2 = 2 D2 
242 000004 SELDATA = 4 D3 
sf : 
345 SBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
247 0000 Pw.NOP = 0 :NO-OP 
248 000001 PW. RDRAM =1 TREAD RAM 
249 00000 PW. WTRAM = 2 WRIT 
250 00000 PW.RFIFO = 3 [READ FIFO 
251 000 PW.WFIFO =4 [WRITE FIFO 
252 000005 PW.RDSTAT = 5 [READ STATUS 
253 000 PW. WCTL = 6 WRITE TAPE CONTROL 
254 PW. WEMT =7 [WRITE TAPE FORMAT 
255 000010 PW. WMISC = 10 [WRITE MISCELLANEOUS 
256 00001 PW. WNPR = 11 [WRITE NPR CONTROL 
257 000020 PW.D22 = 20 [D0 MICROTEST 22 
258 000021 PW.D11 = 21 [DO MICROTEST 11 
259 000022 Pw.D13 = 22 :D0 MICROTEST 13 
260 00002 Pw.NO1311 = 23 ‘DISABLE MICROTEST 11 AND 13 
261 000024 PW. RDEXT = 24 ZREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
26 i+ 
364 3BSEL1 CODES FOR WRITE TAPE CONTROL 
266 000200 uc. IFAD = BIT7 Z1FAD = FORMATTER ADDRESS 
267 000100 WC. IOTAD = BIT6 SITADO = TRANSPORT ADDRESS BIT 0 




















TSV3_= GLOBAL AREAS 


268 060040 
269 000020 
270 000010 
271 

272 000002 
273 000001 
274 

275 

276 

277 

278 000200 
279 000100 
280 000040 
281 000020 
282 000010 
283 000004 
284 000002 
285 000001 
286 

287 

288 

289 

290 

291 0002 
292 000020 
293 0000 
294 000006 
295 0000 
296 

297 

298 

299 000000 
300 000 
301 000004 
302 000006 
303 

304 

305 

306 000200 
307 000100 
308 000040 
309 000020 
310 

311 

312 

313 

314 000200 
315 000100 
316 000040 
317 000020 
318 000010 
319 000 





MACRO M1113 25-MAY=82 09:19 
TSVOS REGISTER AND PACKET DEFINITIONS 


3 
PAGE 14-4 
WC. 11TAD = BITS 
WC. ISRESV = BIT4 
WC. IREW = BITS 
WC. IRWU = BIT2 
WC.IFEN = BIT 
wC.1G0 = B1T0 
3+ 
s;BSEL1 CODES FOR WRITE FORMAT 
WF. IHISP = BIT7 
WF. IWRT = BIT6 
WF. IREV = BITS 
WF. IWFM = BIT4 
WF. IEDIT = BITS 
WF . IERASE = BIT2 
WF .ISRESV = BIT 
WF. I4RESV = BITO 


if 
sBSEL1 CODES FOR WRITE 


sITAD1_ = TRANSPORT ADDRESS BIT 1 
TIRESVS = RESERVED #5 

sIREW = REWIND 

sIRWU = REWIND AND UNLOAD 
aiten - FORMATTER ENABLE 
; IHISP HIGH SPEED 
IWR WRITE 


REVERSE 
WRITE FILE MARK 
EDIT 


. 

al 

m 
mao 
“n> Bc - 

— 
seeevuuee 


ERASE 
RESERVED #3 


2IR 
2 IRESV4 = RESERVED #4 


MISCELLANEOUS SUBCOMMAND 


zs INVERT SENSE OF EXTENDED oy ciate SWITCH 
RESET FIFO AND INPUT PARITY ERR 

ZRESET TAPE STATUS ” 2 FLIP-FLOPS” 
ATTENTION TRIGGER FIELD 

RESET TIMER A,B THEN DELAY TIMES IN SEL2 


sNO-OP (NOTHING TRIGGERED) 

SIMULATE ON-LINE/OFF=LINE TRANSISTION 

FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


3+ 
3 WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


MS.EXT = BIT7 
MS.RSFIFO = BITS 
MS..RSTAPE = B1T3 
MS.ATTN = BIT2! 
MS.RSD = BITO 
e¢ 
MS.ATTN SUBCODES 
MSA.NOP = 0#2 
MSA.VOL = 1*2 
MSA.NRAM= 2%2 
MSA.FRAM= 3*2 
NP.IR = BIT7 
NP.OUT = BIT6 
NP. LOOP = BITS 
“WRP = BITS 


: INTERRUPT REQUEST (0-1 say es 
San ta DIRECTION . hg IN) 


E TRANSPORT LOOPBA 
WRITE CORRECT PARITY (SETS 0 TO WRITE WRONG) 


i+ 
3 READ STATUS MESSAGE BUFFER BIT DEFINITIONS 





nnnnnnnnon 
Bwowoowwwwwow 
bee bme by bem bmn eg Boa Pet Dae bene 


A st 
tt INE UO 


NMWEMs 


BIT0 


= WORD #9 BYTE 2 DATA IN MISS 
ILW H 

OUT RDY H 

IN RDY H 

TIMER A FLAG H 

TIMER B FLAG H 


(UNDEFINED) 

[WORD #8 BYTE 1 PARIN H 
3 IRESV2 
: IRESV1 


SEQ 0031 


atin 


SEQ 0032 


3 
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TSVOS REGISTER AND PACKET DEFINITIONS 


TSV3_= GLOBAL AREAS 


—— 


SS SO eth ht 
VERS w= VO Ore 
Sowswaao2ooa zona 
eVu TMwerouotcuu 


-o 

——-OOr OM TMU CO 
Bee ee fee ee ee 
ee en ee a nr a rs 
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SPECIAL MACROS AND OPDEFS SEQ 0033 
340 ~SBTTL SPECIAL MACROS AND OPDEFS. 
34 
34 g¢ 
344 sSAVE GENERAL REGS 1 TO 5 
345 :- 
346 
347 «MACRO SAVREG 
348 JSR R5,REGSAV 
349 .ENDM 
350 
351 3+ 
332 ; MACRO TO FORCE AN ERROR 
354 “MACRO FORCERROR TAG,NOTSSR 
356 SIF NOF LISTALL, .NLIST 
357 T 
358 -IF 8 NOTSSR 
359 MOV TSSR(RS),R1 :READ TSSR 
360 ~ENDC 
361 MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
362 BNE TAG :BR IF YES 
363 NLIST 
364 SIIF NDF LISTALL, .LIST 
365 LIST 
366 *ENDM 
367 
368 3+ 
369 3 MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
370 : WILL oir TO A LABEL IF FORCER IS NEGATIVE 
371 : SO T 0. FORCE ERRORS AND EXIT ON 1 ERROR SET 
372 : FORCER TO 177777 
er : TO FORCE Ocanons AND ITERATIONS SET FORCER TO 1. 
375 “MACRO FORCEXIT TAG 
376 eNLIST 
377 “LIF NDF LISTALL, .NLIST 
378 «LIST 
379 MOV FORCER,FORCER ;1S FORCER NEGATIVE? 
380 BMI TAG :BR IF YES 
381 -NLIST 
382 IF NDF LISTALL, .LIST 
383 LIST 
384 . 
385 3 
386 ; MACRO TO INCREMENT ERROR COUNTS 
388 “MACRO NEXT. ERRNO 
389 ST 
390 iizelIF NDF LISTALL , «NLIST 
391 ER 
392 z2g-.11F NDF LISTALL, «LIST 
393 LIST 


s+ 





es ee renee 
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SPECIAL MACROS AND OPDEFS. 


| 397 sMACRO TO PERFORM XOR 
| 


398 7 

399 
-MACRO XOR A.B 
MOV A,~(SP) 
BIC B, (SP) 
BIC A.B 
BIS (SP)+,B8 
~ENDM 

000000 EN=0 INITIALIZE ERROR NUMBER 


"SBTTL FORCER = FORCE ERROR FLAG 


; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
: TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


414 

415 002176 000000 FORCER:: 0 ; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED e 
416 3 + BY THE MACRO “'IFERROR'’ ERROR NEED NOT 

; > EXIST, JUST ASSUME AND TYPE THE MESSAGE. 





SEQ 0034 


wD 
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GLOBAL DATA SECTION 


o3§ -SBTTL GLOBAL DATA SECTION 
424 3++ 
425 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
426 3 IN MORE THAN ONE TEST. 
427 i-- 
8 
430 THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
¢3 ;SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
433 002200 000000 EPRTSW:: -WORD 0 PRINT SWITCH 
434 002202 000000 UNITN:: -WORD 0 [UNIT # UNDER TEST. 
435 002204 QVP:: «WORD 0 sQUICK VERIFY FLAG. 
002206 000 CSRADDR: -WORD 0 sADDRESS OF CSR FOR CURRENT DEVICE 
437 002210 000224 IVEC:: ° 224 zs INTERRUPT VECTOR 
38 002212 00020 IPRI:: ° PRI04 ;INTERRUPT PRIORITY 
439 002214 000000 TSTCNT: «WORD 0 ZNUMBER OF TESTS RUN IN THIS PASS 
440 002216 000 LOOPCNT -WORD 0 REMAINING ITERATION COUNT FOR TEST 
441 002220 000000 DEVCNT: -WORD 0 NUMBER OF DEVICE UNDER TEST 
442 002222 FATFLG: «WORD 0 sSET IF FATAL ERROR IS DETECTED IN TEST 
3 002224 000 INTRECV ° 0 ET IF TAPE INTERRUPT WAS RECEIVED 
444 002226 000000 EXTFEA: -WORD 0 T EXTENDED FEATURES SOFTWARE SW O=OFF;1= 
445 002230 000000 BENBSW: eWORD 0 sBUFFER ENABLE SWITCH SW O=OFF ;1=0N 
446 002232 000000 EXPD:: «WORD 0 sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
47 002234 000000 RECV -WORD 0 SRECEIVED RAM DATA FOR ai ROUT INE 
2236 000000 ERRHI eWORD 0 HIGH ADDRESS MEMORY =— 
449 002240 000000 ERRLO 0 ;LOW ADDRESS MEMORY ERR 
450 002242 RAMDATA -BLKW 16. DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
451 002302 000000 RAMSIZ:: eWORD 0 RAM DATA SIZE FOR PRAMPKT ROUTINE 
002 000000 RCVHIADD:: eWORD 0 sRECEIVED BUFFER HIGH ADDRESS 
3 002306 000000 RCVLOADD: : «WORD 0 RECEIVED gurreR LOW ADDRESS 
454 002310 000000 COUNT: : -WORD 0 3s TEST COUNT PATTERN 
455 002312 000000 ATA:: «WORD 0 STEST DATA 
0023 TSTFLAG: «WORD 0 TEST FLAG D 
457 002316 000000 TSTPTR:: -WORD 0 :TSTBLK POINTER 
458 002320 000000 PRMNO -WORD 0 PRINT ROUTINE TEMP 
459 002322 EXPMSG -BLKB 100. sEXPECTED MESSAGE BUFFER DATA 
460 002466 RECMSG:: -BLKB 100. SRECEIVED MESSAGE BUFFER DATA 
461 002632 TMPBFR: : -BLKB 80. TEMPORARY STORAGE FOR PRINT 


SEQ 0035 


ee | 
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TSTBLK = TEST DATA TABLE 


4? -SBTTL TSTBLK = TEST DATA TABLE 
rs 14 sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
re 4 2IN SEQUENCE THE DATA IS: 
471 : ALL ZEROS 
472 ; ALL ONES 
473 : WALKING ONES 
474 ; WALKING ZEROS 
rity ; ALTERNATING ONES AND ZEROS 
477 :- 
478 
79 002752 TSTBLK:: 
480 002752 000000 » WORD sALL ZEROS 
481 002754 177777 WORD 177777 sALL ONES 
482 002756 000001 WORD BITO sDATA FOR WALKING ONES 
483 002760 000002 WORD 86I1T1 
2762 000004 ° BIT2 
485 002764 000010 -WORD BITS 
86 002766 000020 WORD BIT4 
487 002770 000040 -WORD BITS 
488 002772 000100 WORD BIT6 
489 002774 000200 -WORD BIT? 
2776 0004 WORD BIT8 
1 WORD BIT9 
492 003002 002000 -WORD B1T10 
3 000 eWORD BIT11 
010000 «WORD BIT12 
495 003010 020000 WORD BIT13 
496 003012 040000 WORD BIT14 
497 003014 100 . BIT15 
498 003016 177776 - WOR “CBITO zDATA FOR WALKING ZEROS 
003020 177775 -WORD “CBIT1 
003022 177773 -WORD “CBIT2 
501 003024 177767 -WORD *CBITS 
502 003026 177757 WORD “CBIT4 
503 003030 177737 WORD “CBITS 
504 003032 177677 -WORD “CBIT6 
003034 177577 WORD “CBIT? 
06 003036 177377 WORD “CBITS 
003040 176777 «WORD “CBIT9 
508 003042 175777 WORD “CBIT10 
09 003044 173777 WORD “*CBIT11 
510 003046 167777 WORD “CBITI2 
511 0030 157777 WORD “*CBIT13 
512 003052 137777 WORD “CBIT14 
513 003054 077777 WORD “CBIT15 
514 003056 125252 »WORD 125252 sALTERNATING ONES, ZEROS 
$2 003060 052525 TALEND eWORD 052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


SEQ 0036 
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GLOBAL ENVIRONMENT STORAGE 


S27? 003112 
529 003114 


568 003176 
44 003376 


570 
571 003400 


000000 100000 000000 
000000 000000 000000 


000000 


000000 
000000 
177777 


000000 





SSTORAGE FOR DEVICE REGISTERS 


9, 100000,0,0 
0,0 0 0 0,6, 6.0.0 0,0 


DUMMY : 


NXMFLG:: 


CTABE:: 
sERROR STATISTICS TABLE 


Bete Ge Ge Se Se 


ERTABL: 
ERTABE : 


SKIPT: 
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L 3 


SEQ 0037 


-SBTTL GLOBAL ENVIRONMENT STORAGE 


14XXXX 


- WORD 


o ooocoo Oo oO 


'Soooo SCOCONOCOOCOOCOOoOOoOO 


(1 WORD PER UNIT), 
on NOT TESTED 


sDUMMY DEVICE REGISTERS... 
3+eeFOR MULTI-UNIT CHECKOUT. 


So 
So 
So 


eat 


:'DROPPED UNIT’* FLAG. 
fpr gg My CODE IN *‘CLEAN-UP"*. 
sFLAG TO SAY NO DEVICE. 


SOME TEMP LOCATIONS. 


3XXDP+ COMM BLOCK POINTER. 
31ST FREE Ze UN asst ya 


~AND SIZ 
sLAST WORD IN FREE SPACE 
KT11, MEM AVAIL FLAG - 
i= WORD 0 = <24K OR NO KT - 
NZ = >24K AND KT. 
“SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
:SET IF WE CAN TEST CLEARED OTHERWISE 
*NXM LO ADDRESS BIT 
*NXM HI A ae BITS FOR DAL*S 16-21 
£11/23A FLAG 


FLAG * 
$52 BLOCK ADDRESS FOR 32K START 


ACTUAL _DATA 
EXPECTED DATA 


; CONFIGURATION TABLES. 
CONFIG WORK. 


zEND OF MEM TABLE. 
64 UNITS MAX: 


ERRORS 
ENCOUNTERED XXXX ERR 


UNIT DROPPED, og ey DEVICE OREGISTER 
UNIT DROPPED, NOT IDLE AT START 
UNIT DROPPED, ENCOUNTERED XXXX ERRORS 


64. 
0 


31=SKIP SUBTEST O=NO SKIP OF SUBTEST 


w- 


3 
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GLOBAL TEXT MESSAGES SEQ 0038 
373 ‘9 -SBTTL GLOBAL TEXT MESSAGES 
575 3 THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
576 : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
577 ° : MORE THAN ONE TEST. 
578 i<- 
579 
580 
581 
582 3+ 
283 ZNAMES OF DEVICES SUPPORTED 
585 ' 
586 003402 DEVTYP <TSVO5> 
003402 LSDVTYP:: 
003402 124 123 126 eASCIZ /TSVOS/ 
.EVEN 
587 
595 3+ - 
296 3TEST DESCRIPTION ; 
598 003410 vane DESCRIPT <**e* TSVOS LOGIC DIAGNOSTIC = REPLACE M7196 IF ERROR tée*> 
003410 052 052 052 ASCII /xeee TSVOS LOGIC DIAGNOSTIC = REPLACE M7196 IF ERROR tee2/ 
599 
613 
614 
615 
616 i+ 
ei? 3BIT TO ASCII CONVERSION FOR TSSR REGISTER 
619 
620 003502 003542 003545 003551 TSSRBIT:: eWORD 1$,2$,3$,4 138-98 7$,8$ 
621 003522 003603 003607 003613 WORD 9$.10$,11$ $, 12s. 13$, 14$, 15$,16$ 
622 003542 123 103 000 1$: eASCIZ ‘SC 
623 003545 102 111 105 2$: eASCIZ ‘BIE’ 
003551 123 103 105 3$: eASCIZ ‘SCE 
625 003555 122 115 122 4$: -ASCIZ ‘RMR’ 
626 003561 116 130 115 5$: eASCIZ ‘NXM* 
7 003565 116 102 101 6$: eASCIZ ‘NBA 
628 003571 102 111 124 7$: -ASCIZ ‘BIT9" 
629 003576 102 111 124 8$: eASCIZ ‘BITB' 
630 003603 123 123 122 9$: eASCIZ ‘SSR’ 
1 003607 117 106 114 10$: eASCIZ ‘OFL' 
2 003613 102 411 124 11$: -ASCIZ ‘BITS' 
633 003620 102 111 124 128: eASCIZ ' ° 
6 003625 102 111 124 13$: ASCIZ ° , 
635 003632 102 111 124 14$: eASCIZ ' : 
636 0036 102 111 124 15$: eASCIZ ‘BITI" 
637 003644 102 111 124 16$: ry *BITO' 
639 003652 124 123 123 SFIERR: .ASCIZ 'TSSR ERROR AFTER SOFT INIT* 
640 003705 124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
641 00374 040 040 116 NXR: eASCIZ / NON-EXISTANT DEVICE REGISTER/ 
642 003777 045 101 040 NXRX: eASCIZ /%A ADDRESS: %06/ 
643 004020 045 101 040 TSSX: <ASCII /%A TSBA,TSSR EXP"D: %06%A, 2062N/ 





eae 
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GLOBAL TEXT MESSAGES 
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SEQ 0039 
/%A__TSBA,TSSR REC'D: %06%A,%06/ 
/ENZA/ 


/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 
eASCII /2NZA 

/ NO_IN He 7, GENERATED/ 
/ eg Ht ULT/ 


/%A PC: Z06%A _TSBA: 

7 BUS@INIT" DIDN'T INITIALIZE 
/ “SOFT=INIT'' DIDN'T INITIALIZE T 
/ "BUS-RESET" DIDN'T INITIALIZE 


// 


/32N/ 
/%A_EXP'D: %06%A, REC'D: %06/ 

ZENZA EXP'D: 206LA, XOGENZA REC'D: XO%A, %06/ 

/%A REG(W) GRiTtEN’ TO: 206%A REG(R) READ; EXP"D: Z06%A, REC'D: %06/ 
a "RAM Contents Do Not mete Packet Sent’ 

/ CONFIG DOESN NT MATCH MFG. MASTER/ 

"WRITE CHARACTERISTICS Failed’ 

*TSSR Incorrect After WRITE Command, More Bits Set Than SSR‘ 
*TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
"FATAL ERROR IN SUBTEST ‘= CHECK TAPE, CABLES, TRANSPORT etc.° 
‘ERROR IN SUBTEST = WRITE DATA RETRY FIVE TIMES FAILED* 

*ZNZA teeee NO NXM ADDRESS=-CANNOT TEST NXM TIMEOUT. ***#e%n° 
"ZENZA eeeeeennananaanan 11/234 SYSTEM kkkkkaeeeenanaean{N® 
"ZENZA teeenennaneananen 11/238 SYSTEM tenneneenneeenene{y’ 


Te aa 
THE DPU/ 


‘amet 





6 70 
695 005772 
696 74 


6 
699 006022 


TSV3_= GLOBAL AREAS 
GLOBAL ERROR REPORT SECTI 


013746 
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-SBTTL GLOBAL ERROR REPORT SECTION 


: TH HE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
3 CALLS THAT ARE USED IN MORE THAN ONE 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


BGNMSG NXRERR 
NXRE"R:: 


sNON-EXISTANT DEVICE REGISTER. 


PRINTX #NXRX,NODEV sNODEV = NEXM ADDRESS. 
003114 MOV NODEV,=(SP) 
003777 MOV #NXRX ,=(SP) 
000002 MOV #2,-(SP) 
MOV SP,RO 
TRAP CSPNTX 
000006 ADD #6,SP 
005770 SR PC,EXTEND : PRINT EXTENSION IF REQUIRED. 
ENDMSG 
L10002: 
TRAP CSMSG 
: THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
3 TO ANY OF THE ABOVE ERROR SIGNATURES. 
EXTEND: TST (PC)+ 
EXTA: Bee 18 : 0 = NO EXTENSION. 
177770 JSR PC,@EXTA ¢ Te EXTENSION TEXT. 
1$: PRINTX #NULCR PRINT A BLANK LINE 
004530 MOV #NULCR,=(SP) 
000001 MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTX 
000004 ADD #4,SP 
RTS PC 


SEQ 0040 


an 


C 4 
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PRITSSR = PRINT TSSR CONTENTS SEQ 0041 
70 .SBTTL PRITSSR = PRINT TSSR CONTENTS 
706 ?ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
707 3THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
708 :BY A MESSAGE PRINTING ROUTINE 
ny + INPUTS: 
z1e : R1 CONTENTS OF TSSR 
714 ; SUBORDINATE ROUTINES: 
rig ; CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
718 :- 
719 
720 006024 PRITSSR: 
721 006024 SAVREG SAVE GENERAL REGISTERS 
722 006030 010104 MOV R1,R4 ZSAVE THE TSSR CONTENTS 
723 006032 PRINTB #TSSRFOR,R4 SPRINT THE CONTENTS OF TSSR 
006032 010446 MOV R4,-(SP 
006034 012746 006415 MOV #TSSRFOR, =(SP) 
006040 012746 000002 MOV #2,-(SP) 
006044 010600 MOV SP,RO 
006046 104414 TRAP  C$PNTB 
006050 062706 000006 ADD #6,SP 
724 006054 010400 MOV R4.RO :GET TSSR BACK FOR CHKAMB 
725 006056 004737 016044 JSR PC. CHKAMB SARE CONTENTS AMBIGUOUS ? 
726 006062 103410 BCS 5$ [BRANCH IF NOT 
727 006064 PRINTX #AMBTSSR :SHOW CONTENTS ARE AMBIGUOUS 
006064 012746 006635 MOV #AMBTSSR,=(SP) 
006070 012746 000001 MOV #1,-(S 
006074 010600 MOV SP,RO 
006076 104415 TRAP  C$PNTX 
006100 062706 000004 ADD #4,SP 
728 006104 010403 5$: MOV R4.R3 sCONTENTS OF TSSR 
729 006106 042703 001476 BIC #HIADDR! FATERR! TERCLS,R3 ZCLEAR ALL MULTIPLE BIT FIELDS 
730 006112 001434 BEQ 20s 3NO BITS S ARE SET 
731 006114 012702 002632 MOV #TMPBFR,R2 ZTEMPORARY ASCII BUFFER 
732 006120 012701 003502 MOV #TSSRBIT,R1 ASCII EQUIVALENT OF BITS 
733 006124 005703 10$: TST R3 SREMAINING BITS TO CONVERT 
734 006126 001413 BEQ 15$ ZBRANCH WHEN ALL ARE DONE 
735 006130 000241 CLC [CLEAR CARRY SHIFT 
736 006132 006103 ROL R3 3SHIFT NEXT BIT TO CARRY 
737 006134 103006 Bcc 13$ ZBRANCH IF BIT NOT SET 
738 006136 011100 MOV (R1),RO :POINTER TO BIT DEFINITION 
739 006140 112022 11$:  MOVB (RO)+,(R2)+¢ ZMOVE ASCIZ TO BUFFER 
740 006142 001376 BNE 11$ sMOVE ALL BITS 
741 006144 112762 000054 177777 MOVB ss #", .=1(R2) ZINSERT A COMMA TO TERMINATE 
742 006152 005721 13$: TST (RiS+ ‘POINT TO NEXT DESCRIPTION 
743 006154 000763 BR 10$ [GET THE REMAINING BITS 
744 006156 105042 15$:  CLRB  =(R2) S TERMINATE THE LINE 
745 006160 PRINTX #TSSDEF ATHPBER SPRINT THE BIT DEP INI TIONS 
006160 012746 002632 MOV #TMPBFR.=(SP) 
006164 012746 006606 MOV #TSSDEF .=(SP) 





c~+ 
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PRITSSR = PRINT 


006232 


# SRSeaWS 


3 Bes 
pe 
see 
$e 





TSSR CONTENTS 


012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADD 
010403 20$: MOV 
042703 177761 BIC 
016303 006676 MOV 
PRINTX 
010346 MOV 
012746 006476 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADD 
010403 MOV 
703 (177717 BIC 
001416 BEQ 
Soe ASR 
006203 ASR 
goede ASR 
0163503 007236 MOV 
PRINTX 
010346 MOV 
012746 006537 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADD 
042704 176377 25$: BIC 
001411 Q 
PRINTX 
010446 Vv 
012746 006435 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADD 
013703 002200 30S: OV 
PRINTX 
010346 MOV 
012746 000001 MOV 
010600 MOV 
104415 TRAP 
06 000004 ADD 
RTS 


EPRT2: 
116 045 EPRT1: .ASCIZ 
116 045 TSSRFOR: 
116 045 TEXASC: 
116 045 TCOASC 
116 045 TFCASC 
116 045 TSSDEF 
116 045 AMBTSSR 


” EVEN 
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#2,-(SP) 
SP,RO 
CSPNTX 


R4,R3 :GET THE TSSR_ CONTENTS 
#*CTERCLS,R3 SCLEAR ALL BUT TERMINATION 
TCOCOD(RS} »R3-;GET THE TERMINATION CODE MEANING 


atc ASC SR SPRINT THE TERMINATION CODE 
#TCOASC,=(SP) 

2,=(SP) 

SP,.RO 

CSPNTX 
#6,SP 

R4.R3 zTSSR CONTENTS AGAIN 
#*CFATERR,R3 CLEAR ALL BUT FATAL TERMINATION 
258 [DON'T PRINT IF ZERO 
R3 

R3 ZALINE TERMINATION CODE FOR INDEX 
TSFCOD(R3),R3 :GET THE FATAL TERMINATION CODE 
#TFCASC (RS SPRINT THE FATAL TERMINATION CODE 


27 (SP 
#TFCASC,=(SP) 
#2,~(SP) 


#6,SP 
W*CHIADDR,R4 ©; CLEAR ALL BUT EXTENDED ADDRESS 
30$ DON'T PRINT IF 
ATEXASC RG SPRINT THE EXTENDED ADDRESS BITS 
#TEXASC ,=(SP) 
#2,-(SP5 
SP,RO 
CSPNTX 
#6,SP 
EPRTSwW,R3 PRINT MEAASGE BUFFER ADDRESS 
RS PRINT PROPER MESSAGE 
R3,-(SP) i 
#1,-(SP) 
SP RO 
CSPNTX 
4,SP 


RETURN TO CALLER 


"ENZA seeeeREPLACE M7196eee08° 


eASCIZ ‘2ZNZA TSSR = %06° 

eASCIZ ‘ZNZA Extended Address Bits = _%06' 
eASCIZ *ZNZA Termination Class Code = 2T° 
eASCIZ A Fatal Termination Class” Code = %T° 
eASCIZ ‘ZNZA TSSR Bits Set: %T° 

-ASCIZ ‘ZNZA TSSR Contents Are Ambiguous’ 


SEQ 0042 


pol) 


4 
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PRITSSR = PRINT TSSR CONTENTS SEQ 0043 










790 006676 006716 006741 006767 TCOCOD: .WORD 1$,2$,3$,4$,5$,6$,7$,8$ 

791 006716 = 116—t—i«*087 log I$: -ASCIZ ‘Normal Termination’ 

792 006741 124 145 16 ¢3: eASCIZ ‘Termination Condition’ 

793 006767 124 141 160 3$: eASCIZ ‘Tape Status Alert’ 

794 007011 106 165 17 4$: eASCIZ ‘Function Reject’ 

795 007031 122 145 143 5$: eASCIZ ‘Recoverable Error = Tape Position One Record Down’ 
796 007113 122 145 143 6$: eASCIZ ‘Recoverable Error = Tape Was Not Moved' 
797 007162 125 156 162 7$: eASCIZ ‘Unrecoverable Error’ 

798 007206 106 141 164 8$: ry "Fatal Controller Error’ 

800 

801 007236 007246 007302 007313 TSFCOD: .WORD 1$,2$,3$,4$ : 

802 007246 111 156 164 1$: | .ASCIZ ‘Internal Diagnostic Failure’ 

803 007302 122 145 163 2$: -ASCIZ ‘Reserved’ ‘ 

804 007313 102 165 163 3$: eASCIZ ‘Bus Interface or Sanity Check Error’ 
44 007357 122 145 163 4$ ly "Reserved' 


att 


Se 


0 Co 09 00 09 G9 09 09 CD 
te ed ed ed ad ad ed od 
OnNOUSWwR—O 


819 
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003134 


007554 
000003 
000010 


017316 


007516 
000003 


000010 


045 
045 


3+ 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A 
sTHIS ROUTI 


: INPUT: 


10$: 


15$: 


20S: 
25$: 


PKTFRM: 
PKTADD: 


= PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


-SBTTL 


-ASCIZ 
-ASCIZ 
VEN 





PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


A COMMAND PACKET. 


NE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND oye 1 ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


RO,RS 
KTENABLE 
10$ 


R3 
R3,R1 
R4,RO 
RO 


R1 
#PKTADD,R1,R4 
R4,=(SP) 
R1.=(SP) 
#PKTADD,=(SP) 
#3,-(SP) 
SP.RO 
CSPNTB 
#10,SP 
R3,RO 
208 
R4,R1 
PC. SETMAP 
ca 

+,R2 
sparrbn R1,R2 
R2,-(SP) 
R1.=(SP) 
#PKTERM,-(SP) 
#3,=(SP) 


sSAVE THE REGISTERS 
7SAVE_NO. OF WORDS a »PACKET 
ABOVE 28k UNDER TEST 


2BR I 
+31 HIGH ORDER weet To 0 


2GET ant ADDRESS 
sSHIFT BIT 15 INTO C BIT 
sAND INTO HIGH ORDER. 
PRINT PACKET ADDRESS 


2GET yp ol ORDER ADDRESS 
F NO lanth te 


GET tow ORDER A DRESS 
SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
7GET RETURNED PAR6 ADDRESS BIAS 


2SAVE WORD NUMBER 
3GET PACKET CONTENTS 
sPRINT THE DATA 


zNEXT WORD NUMBER 

zDONE ALL re: WORDS? 

:LOOP TILL ALL DONE 
zRETURN 


*ZNZA Packet Word #ZD1ZA = %06° 
"ZENZA Packet Address = %01%05° 


SEQ 0044 


o— 


2) Pal ee Oe a Oo FS 
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PRIBXOR = PRINT EXPD, RECV AND XOR BYT SEQ 0045 
$3 -SBTTL PRIBXOR = PRINT EXPD, RECV AND XOR BYTE 
He x 
856 [PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
897 ;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
859 INPUTS: 

860 : 
861 : R1 RECEIVED DATA 
862 : R2 EXPECTED DATA 
863 ; 
864 S OUTPUT: 
866 ; RO XOR OF EXPECTED/RECEIVED DATA 
868 :- 
869 
870 007612 PRIBXOR: : 
871 007612 SAVREG :SAVE THE REGISTERS 
872 007616 010203 MOV R2,R3 EXPECT ED DATA 
873 007620 XOR R1.R3 FORM THE EXCLUSIVE OR 
874 007630 012700 177400 MOV #°C<377>,RO “BYTE MASK 
875 007634 040001 BIC RO,R1 TSAVE LOW BYTE RECV 
876 007636 040002 BIC RO.R2 3 SAVE LOW BYTE EXPD 
877 007640 040003 BIC RO.R3 E LOW BYTE XOR 
878 007642 PRINTS #XORBFOR, R2,R1, as ‘PRINT THE MESSAGE 

007642 010346 MOV R3,-(SP) 

007644 010146 MOV R1,-(SP) 

7646 010246 MOV R2,-(SP) 
007650 012746 007674 MOV #XORBFOR,-(SP) 
007654 012746 000004 MOV #4,-(SP) 
7 010600 MOV PRO 

007662 104414 TRAP C$PNTB 

007664 062706 000012 ADD #12,SP 
879 007670 010300 MOV R3,RO :RO HAS XOR ON RETURN 
880 007672 000207 RTS PC SRETURN TO CALLER 


aoe 007674 045 116 045 XORBFOR: eASCIZ ‘ZNZA EXPD: ZO03ZA RECV: %03%A XOR: %03° 





7 Pre 


TSV3 = GLOBAL AREAS 
| PRIXOR = PRINT EXPD, RECV AND X 


0002 
9 010006 
4 010010 
at 010012 


4 
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010012 
000004 


000012 


116 


+ 


- SBTTL 


SEQ 0046 
PRIXOR = PRINT EXPD, RECV AND XOR 


SPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE T 
s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


INPUTS: 


045 XORFOR: 


R1 
R2 


RO 


RTS 


-ASC1Z 
EVEN 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE ane 
Ma 4 DATA 


R2,R3 EXPECT 
2R3 2FORM THE EXCLUSIVE OR 
#XORFOR.R2, -R1,R3- "PRINT THE MESSAGE 


R3,RO 3RO_HAS XOR ON RETURN 
PC RETURN TO CALLER 


*ZNZA EXPD: %06%A RECV: Z%06%A XOR: %06° 


ao, 
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045 


SEQ 0047 
-SBTTL PRIEQU = PRINT BIT NUMBERS AS ASCII EQUIVALENT 
:¢ 


ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
s THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


: INPUTS: 
: RO OCTAL VALUE TO CONVERT 
: R1 TABLE OF POINTERS TO ASCII EQUIVALENT 
PRIEQU 
SAVREG ;SAVE THE REGISTERS 
RTS PC RETURN TO CALLER 


.SBTTL PRIRAM = PRINT RAM ADDRESS 
3¢ 
[PRINT CONTROLLER RAM ADDRESS. 
ZTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


INPUTS: 
: R4 RAM ADDRESS 
PRIRAM 
SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
PRINTE #RAME OR R4 [PRINT RAM ADDRESS IN ERROR 
MOV #RAMF OR, (SP) 
MOV #2,-(S 
MOV SP.RO 
TRAP  CS$PNTB 
ADD #6,SP 
RTS PC ;RETURN 


RAMF OR : rly *ZNZA CONTROLLER RAM ADDRESS = %06' 


-SBTTL PRIADD = PRINT MEMORY ERROR ADDRESS 
{PRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
IMPLICIT INPUTS 


ERRHI = HIGH ORDER ADDRESS 
ERRLO = LOW ORDER ADDRESS 


oo, 


Saas BAL ee Wa ? 
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PRIADD = PRINT MEMORY ERROR ADDRESS SEQ 0048 C 
966 3 
967 :- 
968 010160 PRIADD: 
969 010160 SAVREG SAVE RI-RS pUNTIL NEXT RETURN 
970 010164 013700 002236 MOV ERRHI,RO :GET HIGH ADDRESSS 
971 010170 013701 002240 MOV ERRLO,R1 7GET LOW ADDRESS 
972 010174 01010 MOV R1,R2 :COPY LOW ADDR 
973 010176 006101 ROL SSHIFT BIT 15 TO C BIT 
974 010200 1 ROL RO sSHIFT INTO HIGH ORDER 
975 010202 PRINTB #PRIAO,RO,R2  :PRINT MEMORY ADDRESS IN ERROR 
010202 010246 MOV R2,-(SP) 
010204 010046 MOV RO, (SP) 
010206 012746 010230 MOV #PRIAO, =(SP) 
010212 012746 000003 MOV #3,-(SP) 
010216 010600 MOV SP,RO 
010220 104414 TRAP  CSPNTB 
010222 062706 000010 ADD #10,SP 
976 010226 000207 RTS PC :RETURN 
978 010230 045 116 045 PRIAO: .ASCIZ '‘%NZA MEMORY ERROR ADDRESS = %01%05' 
979 EVEN 
38 
38 -SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 
2 
984 3 
985 sPRINT MEMORY ADDRESS 
O58 :THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
oes : IMPLICIT INPUTS 
990 ; ERRH1 = HIGH ORDER ADDRESS 
991 ; ERRLO = LOW ORDER ADDRESS 
992 ; 
993 7 
994 010274 PRITADD: 
995 010274 SAVREG s SAVE jy! et NEXT RETURN 
996 010300 013702 002236 MOV ERRHI ,R2 7GET HIGH ADDRESSS 
997 010304 013701 002240 MOV ERRLO.R1 :GET LOW ADDRESS 
998 sMOV R1,R2 ;COPY LOW ADDRESS 
sROL sSHIFT BIT 15 TO C BIT 
1000 *ROL  _—sRO 3SHIFT INTO HIGH ORDER 
1001 010310 PRINTB #PRITO,R1 sPRINT MEMORY ADDRESS LOW IN ERROR 
010310 010146 MOV R1,-(SP) 
010312 012746 010356 MOV #PRITO,-(SP) 
010316 012746 000002 MOV #2,-(SP) 
010322 010600 MOV f 
010324 104414 TRAP  C$PNTB 
010326 062706 000006 ADD #6,SP 
1002 010332 PRINTB #PRIT1,R2 ;PRINT MEMORY ADDRESS HIGH IN ERROR 
010332 010246 MOV R2,-(SP) 
010334 012746 010421 MOV #PRIT1,-(SP) 
010340 012746 000002 MOV #2,-(SP) 
010344 010600 MOV SP,RO 
010346 104414 TRAP  C$PNTB 
610350 962706 000006 ADD #6,SP 
1003 010354 000207 RTS PC RETURN 
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PRITADD = PRINT MEMORY TEST ADDRESS SEQ 0049 
1004 
1005 010356 045 116 045 PRITO: .ASCIZ ‘ZNZA MEMORY TEST ADDRESS LOW = %06' 
1006 010421 045 116 045 PRIT1: .ASCIZ ‘ZNZA MEMORY TEST ADDRESS HIGH = %06' 
1007 -EVEN 
1008 
1009 
1010 





ao- 


4 
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SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND SEQ 0050 


012 .SBTTL SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1014 i+ 
1015 ; 
1016 SROUTINE TO ISSUE A SPACE RECORDS 
1017 [COMMAND (FORWARD OR REVERSE) 
1933 3 INPUT: 
1021 : R3 NUMBER OF RECORDS TO BE SPACED OVER 
1022 : BIT15 CONTROLS DIRECTION 
1023 : BIT15 = 0 IS FORWARD 
1024 : BIT15 = 1 IS REVERSE 
1025 : RS FIRST DEVICE UNIBUS ADDRESS 
1027 : REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
1029 OUTPUT: 
1031 : CARRY SET = SPACE RECORDS COMMAND Ok 
1032 : CLR = SPACE RECORDS FAILED 
1934 ; 
1035 : RO THE CONTENTS OF R4 IS MOVED TO RO 
1037 : 
1038 S IMPLICIT OUTPUT: 
1040 ; TAPE HAS BEEN MOVED 
1042 ;SIDE EFFECTS: 
1043 
1044 F 
1045 
1046 
1047 010466 SPACE 
1048 010466 SAVREG . : SAVE THE GENERAL REGISTERS 
1049 010472 012737 000764 010660 MOV #500. , SDELAY 7SET UP DELAY 
1050 010500 012737 140010 010650 MOV #140010, 80$ :SET Up COMMAND, SPACE FORWARD 
1051 010506 005703 TST —_ RB [CHECK FOR DIRECTION 
1052 010510 100403 BMI S$ BR, IF REVERSE INDICATED 
1053 010512 010337 010652 MOV R3,90$ [LOAD UP NUMBER OF RECORDS TO SPACE 
1054 010516 000407 BR 760 DO COMMAND 
1055 010520 042703 100000 5$: BIC . #BIT15,R3 [CLEAR DIRECTION BIT 
1056 010524 010337 010652 MOV R3,90$ [LOAD UP NUMBER OF RECORDS TO SPACE 
1057 010530 052737 000400 010650 BIS #81T8,80$ [SET REVERSE BIT IN COMMAND PACKET 
1058 010536 012704 010650 10$: MOV #80$,R4 3SET UP R4 WITH PACKET ADDRESS 
1059 010542 010465 000000 MOV R4, TSDB(RS) ND OUT COMMAND 
1060 0°9546 004737 016250 15$: JSR PC WAITF SuAIT, FOR SSR 
1061 010552 103420 BCS 208 F SSR IS SET AND Ok 
1062 010554 DELAY 250 DELAY about Ibs SECONDS 
010554 012727 000250 MOV #250, (PC)+ 
010560 000000 WORD 
010562 013727 002116 MOV LSDLY, (PC)+ 
010566 000000 . WORD 
010570 005367 177772 DEC -6(PC) 
010574 001375 BNE 74 








4 
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SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAN SEQ 0051 

010576 005367 177756 DEC =22(PC) 
010602 001 367 BNE .-20 

1063 010604 005337 010660 DEC SDELAY ZBUMP DELAY COUNTER DOWN 

1064 010610 001356 BNE 15$ ‘BR, IF MORE DELAY 

1065 010612 000411 BR 60$ 7BR IF TROUBLE CARRY = CLEAR 

1066 010614 016501 000002 20$: MOV TSSR(RS) RI TREAD TSSR 

1067 010620 012762 000200 MOV #SSR,R2 [SET UP EXPECTED 

1068 010624 025201 25$: CMP R2,Ri ZAR Y OK 

1069 010626 001401 BEQ 40$ ‘BR, IF EQUAL = Ok 

1070 0106 02 BR 60$ : TROUBLE EXIT 

1071 010632 000261 40$: SEC ‘SET CARRY NO TROUBLE 

1072 010634 0600401 BR 70$ TEX 

1073 010636 000241 60$: CLC [CARRY CLEAR = ERROR 

1074 010640 70$: 

1075 010640 010400 MOV R4,RO :PASS PACKET ADDRESS 

1076 010642 000207 RTS PC RETURN 


4 
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SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND SEQ 0052 
1078 : 
1079 ; 
1080 : 
1081 ZPACKET FOR SPACE COMMAND 
1084 010650 .=<.+1028177770 
1087 “COMMAND WORD 
1088 010650 000000 80$: WORD 
1089 ;NUMBER OF RECORDS TO BE SPACED OVER WORD 
1090 010652 000000 50S: WORD 
1091 010654 000000 WORD 
1092 010656 000000 WORD 
1098 010660 000000 SDELAY: -WORD 0 :DELAY COUNTER 
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WRTCHR = WRITE CHARACTERISTICS COMMAND SEQ 0053 


1096 .SBTTL WRTICHR = WRITE CHARACTERISTICS COMMAND 
1098 3+ 

1099 : 

1100 SROUTINE TO ISSUE A WRITE CHARACTERISTICS 

1101 [COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 

+4 : INPUT: 

1105 : R4 ADDRESS OF PACKET FROM TEST 

1106 : RS FIRST DEVICE UNIBUS ADDRESS 

1107 : REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 

1109 OUTPUT: 

1110 : 

1111 : RO TSSR CONTENTS 

1112 ; CARRY SET = WRITE CHARACTERISTICS COMMAND OK 

1113 ; CLR = WRITE CHARACTERISTICS FAILED 

1115 S IMPLICIT OUTPUT: 

1117 : MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

1118 : SOFTWARE SWITCHES SET AS FOLLOWS: 

1119 : EXTFEA = EXTENDED FEATURES PRESENT 

1120 ; BENBSW = BUFFER ENABLE SWITCH ON OR OFF 

1122 ; 

1123 [SIDE EFFECTS: 

1124 : 

1125 : 

1126 :- 

1127 

1128 010662 WRTCHR: : 

1129 010662 SAVREG :SAVE THE GENERAL REGISTERS 

1130 010666 005037 002230 CLR BENBSW ZCLEAR BUFFER ENABLE SWITCH 

1131 010672 005037 002226 CLR EXTFEA SCLEAR EXTENDED FEATURES SW SWITCH 
1132 010676 010465 000000 10$: MOV R4, TSDB(RS) ‘SEND OUT COMMAND 

1133 010702 004737 016336 JSR PC’ CHKTSSR [WAIT FOR SSR 

1134 010706 103401 BCS 20$ 7BR, IF SSR IS SET AND OK 

1135 010710 000435 BR 60$ [BR IF TROUBLE CARRY = CLEAR 
1136 010712 016501 000002 20$: MOV TSSR(RS) RI ‘READ TSSR 

1137 010716 012702 000200 MOV #SSR,R2 iSET UP EXPECTED 

1138 010722 032701 000100 BIT #OFL.R1 WAS OFF LINE SET IN TSSR 

1139 010726 001402 BEQ 25$ <BR. IF NO OFL 

1140 010730 052702 000100 BIS #OFL,R2 [MAKE THEM LOOK ALIKE 

1141 010734 020201 25$: CMP R2,Ri SARE T 

114¢ 010736 001401 BEQ 40$ ‘BR, iF EQUAL = Ok 

1143 010740 000421 BR 60$ [TROUBLE EXIT 

1144 010742 062704 000010 40$: ADD “8, RG [POINT TO WRT CHARA DATA PACKET 
1145 010746 011403 MOV R45 ,R3 ZGET ADDRESS OF MESSAGE BUFFER 
1146 010750 032763 000200 000012 BIT ne. EXTF ,XST2(R3) TEXTENDED FEATURES BIT SET? 

1147 010756 001402 BEQ BR I 

1148 010760 005237 002226 i INC ORTFEA :SET EXTENDED FEATURES SW SWITCH 
1150 010764 032763 000100 000012 BIT #X2..BUFE ,XST2(R3) ;BUFFER ENABLE SWITCH SET 
1151 010772 001402 BEQ 50$ :BR IF SWITCH NOT 

1152 010774 005237 002230 INC BENBSW SET SOFTWARE SWITCH FoR ENABLED 





Fe at 
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WRTCHR = WRITE CHARACTERISTICS COMMAND 


a 
te st tt 
ANN 
SOONG w 


000261 
000401 
000241 


016500 
000207 
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000002 


508: 


60$: 
70$: 


SEC 
BR 
CLC 
MOV 
S 


70$ 


TSSR(R5) RO 
PC 


SET CARRY NO TROUBLE 
[CARRY CLEAR = ERROR 


sRETURN TSSR CONTENTS 
RETURN 


SEQ 0054 





—D> 
—+ 
we 


me em ed ee ed ee ee ed ed ed ed ed ed nd nd od = 2d oe = =) 

DOO OOO O O00 00 00 00 G9 00 00 00 00 00 IWIN WII WINN VNODODARO 
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011014 
011014 
011020 
011024 
011030 
011034 
011040 
011042 
011042 
011046 
011050 
011054 
011056 
011062 
011064 
011070 
1198 011072 
1199 011074 
1200 011076 
1201 011100 
1202 011102 
1203 
1204 
1206 
1208 011110 
1209 011110 
1210 011112 
1211 
1212 
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012704 
0 5 


011110 


102010 
000000 
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COMMAND 


011110 
000000 
000550 
016250 
000372 
002116 
177772 


177756 


~SBTTL REWIND = POSITION TAPE (REWIND) COMMAND 
+ 
:THIS ROUTINE WILL REWIND THE SELECTED TAPE. 
CAUTION: iy ami a DOES NOT WAIT FOR 


BOT 
ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


CALLING SEQUENCE: 


: DO A SOFT INIT 
: DO A WRITE CHARACTERISTICS 
; JSR PC REWIND 
INPUT: 
; RS FIRST DEVICE UNIBUS ADDRESS 
S OUTPUT 
; RO THE CONTENTS OF R4 IS PASSED TO RO 
REWIND:: 
SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
MOV ARWPACK,R4 7GET PACKET ADDRES 
MOV R4, TSDB(RS) : SEND PACKET MADDRESS TO EXECUTE 
MOV #360..R [ENOUGH TIME FOR 2400° REEL TO REWIND 
10$: JSR PC ,WAITF :WAIT FOR SSR TO SET 
BCS 208 TLEAVE WHEN SSR IS SET 
DELAY 250. [WAIT FOR .25 SECONDS 
MOV #250., (PC)+ 
.WORD 0 
MOV LSDLY, (PC)+ 
. WORD 
DEC -6(PC) 
BNE 4 
DEC ~22(PC) 
BNE .-20 
DEC 3 ;BUMP COUNTER DOWN 
BNE 10$ SKEEP GOING 
CLC SCLEAR CARRY TO SET ERROR 
20$: MOV R4,RO [PASS THE PACKET ADDRESS 
RTS PC RETURN 


RWPACK: 


-=<.+10>8177770 


«WORD 
WORD 


102010 
0 


POSTION COMMAND (REWIND) 
NOT USED 


SEQ 0055 
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REWIND = POSITION TAPE (REWIND) COMMAND SEQ 0056 
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CKRAM = COMPARE RAM TO 1/0 PACKET SEQ 0057 


1217 .SBTTL CKRAM = COMPARE RAM TO I/O PACKET 

Ht : 

1221 SROUTINE TO READ THE FIRST 8 BYTES FROM RAM 

1228 ;MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 

isse : INPUT: 

1226 ; RG ADDRESS OF THE COMMAND PACKET 

1227 : RS FIRST DEVICE UNIBUS ADDRESS 

1229 SOUTPUT: 

1230 3 

1231 : CARRY SET = RAM MATCHES PACKET 

1232 : CLR = RAM DOES NOT MATCH PACKET 

1234 S IMPLICIT OUTPUT: 

1236 : THE TABLE RAMDATA IS FILLED WITH THE 

1237 ; DATA HELD IN RAM. 

1238 : RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 

1240 [SIDE EFFECTS: 

1242 : THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 

1244 = 

1245 

1246 011114 CKRAM:: 

1247 011114 SAVREG ZSAVE THE GENERAL REGISTERS 
1248 011120 012701 002242 MOV #RAMDATA,R1 SADDRESS TO SAVE THE RAM DATA 
1249 011124 012702 000201 MOV #RMPKTBEG, R2 [BYTE ADDRESS OF FIRS: RAM DATA 
1250 011130 005003 CLR R3 ZCLEAR THE ERROR FLAG 

1251 011132 004737 016336 JSR PC, CHKTSSR ‘WAIT FOR SSR 

1252 011136 112765 000000 000000 MOVB = #0, TSDB(R5) ‘SET MAINTENANCE MOD 

1253 011144 004737 016336 10$: JSR PC; CHKTSSR :WAIT FOR SSR TO SE’ 

1254 011150 010265 00 MOV R2.TSDB(RS) SSELECT NEXT RAM ADDRESS 
1255 011154 004737 016336 JSR PC. CHKTSSR :WAIT FOR SSR TO SET 

1256 011160 116511 000000 MOVB = TSBA(RS), (R1) [READ THE RAM DATA 

1257 011164 122124 CMPB ss (R11) +, (RG) [COMPARE TO EXPECTED 

1258 011166 001401 BEQ 20$ [BRANCH IF OK 

1259 011170 005203 INC R3 'SET ERROR FLAG 

1260 011172 00520 20$: —INC R2 TADDRESS OF NEXT RAM LOCATION 
1261 011174 020227 000210 CMP R2, #RMPK TEND SREACHED END YET ? 

1262 011200 003761 BLE 10$ [BRANCH TILL ALL READ 

1263 011202 005703 TST R3 [WAS AN ERROR FOUND ? 

1264 011204 001402 BEQ 30$ [BRANCH IF NOT 

1265 011206 000241 CLC [CLEAR CARRY TO SHOW ERROR 
1266 011210 000401 BR 50$ TAND EXIT 

1267 011212 000261 30$: SEC [SHOW GOOD COMPARE 

1268 011214 012737 000010 002302 50$: mov #8. ,RAMSIZ ZSETUP RAMSIZ FOR PRAMPKT ROUTINE 
1269 011222 000207 RTS PC RETURN 





‘32 = GLOBAL AREAS 


1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

296 

129 

1298 

1299 

1300 011224 
1301 011224 
1302 011230 
1303 011234 
1304 011240 
1305 011242 
1306 011246 
1307 011254 
1308 011260 
1309 011264 
1310 011270 
1311 011274 
1312 011276 
1313 011300 
1314 011302 
1315 011304 
1316 011312 
1317 011316 
1318 011320 
1319 011326 
1320 011332 
1321 011334 
1322 011336 
1323 011342 
1324 011344 
1325 011346 
1326 011350 
1327 011352 
1328 011354 


000 
000401 
000261 
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RAM2 = COMPARE RAM TO 1/0 CHARACTERISTICS DATA 


002242 
000167 


000000 


000010 
002226 
000012 
000200 


000176 


000000 


002302 


002302 


:* 


-SBTTL 


CKRAM2 


5 


- COMPARE RAM TO I/O CHARACTERISTICS DATA 


SROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM R 
;MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


INPUT: 


10$: 


20$: 


25$: 
273: 


30$: 


OUTPUT: 


R4 
RS 


CARRY 


ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR = RAM DOES NOT MATCH PACKET 


IMPLICIT OUTPUT: 


THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 


SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 





#RAMDATA,R1 
SERNSES AS 


PC,CHKTSSR 


(R1)+, (R4)+ 
20$ 

R3 

R2 

oe, RAMBLE 
EXTFEA 


#10. ,RAMSIZ 
R2, ARMCHEND 
10$ 
27$ 
R2,#RMCHEND=2 
10$ 
R3 

30s 


50$ 


2 SAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
BYTE ADDRESS OF or RAM DATA 
CLEAR THE ERROR FLAG 

WAIT FOR SSR 
sSET MAINTENANCE MODE 


sREAD THE RAM DATA 

:COMPARE TO EXPECTED 

BRANCH IF x 

zSET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 
sASSUME EXTFEA NOT SET 

31S THE SOFTWARE EXTENDED FEATURES SET 
:BR, IF NOT SET 

SET RAMSIZ FOR EXTEND eeATURES 

AT END OF EXTENDED BUFFER 

z8R. : NOT 4 END Y 

zAT END BRAN 

REACHED END YET ? 
BRANCH TILL at READ 
WAS AN ERROR FOUND ? 
BRANCH IF NOT 

ZCLEAR CARRY TO SHOW ERROR 
sAND EXIT 

:SHOW GOOD COMPARE 


SEQ 0058 
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CKRAM2 = COMPARE RAM TO 1/0 CHARACTERISTICS DATA SEQ 0059 


1322 011356 060207 50$: RTS PC 7RETURN 


TSV3_= GLOBAL AREAS 


5 


MACRO M1113 25=MAY~82 09:19 PAGE 33 


CKMSG = COMPARE WRITE CI/AR. MESSAGE BUFFERS SEQ 0060 
1332 .SBTTL CKMSG = COMPARE WRITE CHAR. MESSAGE BUFFERS 
1334 : 

1335 SROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
1336 SBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
1337 TERROR PRINT ROUTINES. 

1338 3 

te : INPUT: 

1341 : RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 

1342 : R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 

1343 : R2 EXPD MESSAGE BUFFER ADDRESS 

1344 SOUTPUT: 

1346 : CARRY SET = MESSAGE BUFFERS MATCH 

1347 : CLR =MESSAGE BUFFERS DON'T MATCH 

1349 SIMPLICIT OUTPUT: 

1351 : EXPMSG BUFFER IS SET TO EXPD DATA 

1352 : RECMSG BUFFER IS SET TO RECV DATA 

1353 : RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
1354 : RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
1356 3° 

1357 011 CKMSG: : 

1358 011 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1359 011 10037 002304 MOV RO,RCVHIADD SSAVE RECV HIGH ADDRESS 

1360 011370 010137 002306 MOV R1.RCVLOAD TSAVE RECV LOW ADDRESS 

1361 011374 005737 003134 TST KTENABLE S TESTING ABOVE 28K? 

136¢ 011400 001403 BEQ ‘BR IF NO 

1363 011402 004737 017316 JSR PC, SETMAP ZRETURN ADDRESS BIASED TO PAR6 IN RO 
1364 011406 010001 MOV RO.R1 [GET RETURNED ADDRESS BIASED i0 PAR6 
1365 011410 005004 10$: CLR RG !WORD IN BUFFER 

1366 011412 005003 CLR R3 [CLEAR ERROR SEEN FL 

1367 011414 010205 MOV R2,R5 ‘GET EXPD BUFFER ADDRESS 

1368 011416 011264 002322 15$: MOV (RO) ,EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 
1369 011422 011164 002466 MOV (R1) ,RECMSG(R4) :SAVE RECV FOR ERROR REPORT 
1370 011426 022221 CMP (R2)+, (R1)+ [EXPD EQUAL RECV? 

1371 011430 001401 BEQ 25$ [BR IF YES 

1372 011432 005203 INC R3 ‘SET ERROR SEEN FLAG 

1373 011434 062704 000002 25$: ADD #2,R4 [POINT TO NEXT WORD ADDRESS 
1374 011440 020427 000014 CMP R4.#16 ‘DONE FIRST 7 WORDS? 

1375 011444 003764 BLE 15 “BR IF NO 

1376 011446 032765 000200 000012 BIT #X2.EXTF,XST2(R55;1S EXTENDED FEATURES SET IN EXPD? 
1377 011454 001403 BEQ :BR IF 

1378 011456 020427 000016 CMP R416 [DONE EXTENDED FEATURES WORD? 
1379 011462 003755 BLE 15$ :BR IF 

1380 011464 005703 50$: TST R3 SANY ERRORS SEEN? 

1381 011466 001402 BEQ 55$ BR IF 

1382 011470 000241 CLC SSET FAILURE 

1383 011472 000401 BR 60$ ; 

1384 011474 000261 55$: SEC 'SET SUCCESS 

1385 011476 000207 60$: RTS PC RETURN 
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CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0061 
1388 «SBTTL CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 
:* 
1390 
1391 TROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
139 TBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
139 ZERROR PRINT ROUTINES. 
139% 
139 INPUT: 
1397 : RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1398 : R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
1399 : R EXPD MESSAGE BUFFER ADDRESS 
1400 : R NUMBER OF BYTES TO COMPARE 
1402 S OUTPUT: 
1404 : CARRY SET = MESSAGE BUFFERS MATCH 
1405 : CLR = MESSAGE BUFFERS DON'T MATCH 
1607 S IMPLICIT OUTPUT: 
1409 : EXPMSG BUFFER IS SET TO EXPD DATA 
1410 : RECMSG BUFFER IS SET TO RECV 
1411 : RCVHIADD SET TO HIGH ORDER ADDRESS. OF RECV 
1412 : RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
1414 i= 
1415 011500 CKMSG2: : 
1416 011500 SAVREG :SAVE R1-R5 UNTIL NEXT RETURN 
1417 011504 020327 000144 CMP R3, #RECMSG-EXPMSG; aad IS COUNT ABOVE MAX ALLOWED? 
1418 011510 003412 BLE 5 R 
1419 011512 012703 000144 #RECMSG-EXPMSG, RS; saad 
1420 011516 PRINTF #DEBUGMSG 3 
011516 012746 011632 V #DEBUGMSG, -(SP) 
011522 012746 000001 MOV #1,-(SP) 
011526 010600 MOV P-RO 
011530 104417 TRAP  CS$PNTF 
011532 062706 000004 ADD #4,SP 
1421 011536 010037 002304 5$: MOV RO.RCVHIADD :SAVE RECV HIGH ADDRESS 
1422 011542 010137 002306 MOV R1.RCVLOAD ZSAVE RECV LOW ADDRESS 
1423 011546 005737 003134 TST TENABLE TESTING ABOVE 28k? 
1424 011552 001403 BEQ 10$ 'BR IF 
1425 011554 004737 017316 JSR PC,SETMAP ‘RETURN A ADDRESS BIASED TO PAR6 IN RO 
1426 011560 010001 MOV RO.R1 [GET RETURNED ADDRESS BIASED TO PAR6 
1427 011562 005004 10$: CLR sWORD IN BUFFER 
1428 011564 005005 CLR RS TCLEAR ERROR SEEN FLAG 
1429 011566 111264 002322 15$: MOVB  (R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 
1430 011572 111164 002466 MOVB  (R1).RECMSG(R4) :SAVE RECV FOR ERROR REPORT 
1431 011576 122221 CMPB ss: (R2) +, (R1) + 3EXPD EQUAL RECV? 
1432 011600 00140 BEQ ¥ 
1433 011602 005205 INC R [SET ERROR SEEN FLAG 
1434 011604 062704 000001 25$: ADD #1,R4 [POINT TO NEXT BYTE 
1435 011610 020403 CMP R4_R3 :DONE ALL BYTES? 
1436 011612 002001 BGE 50$ : 
1437 011614 000764 BR 1 :DO NEXT BYTE 
1438 011616 005705 50$: TST R5 SANY ERRORS SEEN? 
1439 011620 001402 BEQ 55$ :BR IF NO 
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CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0062 
1440 011622 0060241 3SET FAILURE 
1441 011624 000401 BR 60$ ; 
it8 011626 000261 55$: SEC sSET SUCCESS 
ret 0116350 000207 60$: RTS PC :RETURN 
1445 011632 120 122 117 DEBUGMSG: eASCIZ ‘PROGRAM INTERNAL ERROR =CKMSG2 MESSAGE BUFFER EXCEEDED-" ; aad 
1446 011722 045 116 045 FERCM: .ASCII /2NZA_ *e%/ 
1447 011733 040 040 124 ERCM:  .ASCIZ / TSSR ERROR CODE REC'D = / 
1448 0117 056 056 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
0120 105 123. TINERR: ry /TEST: .../ 








L 5 
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| CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0063 
145 
145 
1454 3+ 
1455 : 
1496 SPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
1458 S INPUT: 
1459 : 
1460 : R1 CONTENTS OF TSSR AT ERROR 
146 :SIDE EFFECTS: 
1464 : EXECUTES DROP UNIT TO CEASE TESTING 
1466 i+ 
1467 
1468 012034 BGNMSG SFIMSG 
012034 SFIMSG:: 
1469 012034 004737 006024 JSR PC PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
1470 012040 004737 017202 JSR PC; CKDROP [DROP UNIT, IF ALLOWED 
1471 012044 ENDMSG 
012044 L10003: 
012044 104423 TRAP —CSMSG 
1472 
1473 
147% {PRINT ROUTINE TO PRINT THE CONTENTS 0 
1475 ;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
1477 : INPUTS: 
1478 3 
1479 : R1 TSSR CONTENTS 
1480 : RG ADDRESS OF COMMAND PACKET 
1482 . 
1483 
1484 012046 BGNMSG PKTSSR 
012046 PKTSSR:: 
1485 012046 004737 006024 JSR PC PRITSSR {PRINT THE CONTENTS OF TSSR REGISTER 
1486 012052 012700 000004 MOV #4-RO “NO. OF WORDS IN PACKET 
1487 012056 004737 007370 JSR PC -PRIPKT [PRINT THE CONTENTS OF COMMAND PACKET 
1488 012062 ENDMSG 
012062 L10004: 
012062 104423 TRAP _—C$MSG 
1489 
1490 3+ 
1491 [PRINT ROUTINE TO PRINT THE CONTENTS OF 
1498 STSSR AND A GET STATUS COMMAND PACKET. 
1494 : INPUTS: 
1495 : 
1496 : R1 TSSR CONTENTS 
1497 : R4 ADDRESS OF COMMAND PACKET 
1498 : 
1499 i. 
1500 
1501 012064 BGNMSG PKTGETS 
012064 PKIGETS:: 





oe 
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CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0064 
1502 012064 004737 006024 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
1503 012070 012700 000002 MOV &e, 3NO. OF WORDS IN GET STATUS PACKET 
1504 012074 004737 007370 JSR PC, PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
1505 012100 ENDMSG 

012100 L10005: 
012100 104423 TRAP CSMSG 
1506 
1507 
1508 3+ 
HF 4 sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
1511 3 INPUTS: 
1512 3 
1513 3 R1 TSSR CONTENTS 
13\3 : R4 ADDRESS OF COMMAND PACKET 
1516 
1517 012102 BGNMSG SFFMSG 
012102 SFFMSG:: 
1518 012102 004737 006024 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
1519 012106 ENDMSG 
012106 L10006: 
012106 104423 TRAP CSMSG 


‘ ~SBTTL PKTMES = PRINT TSSR AND MESSAGE BUFFER 
PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
sBUFFER FOR ERROR REPORTS 


INPUTS: 


R1 CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 


WWWWPonofnononofhener 


ee ed ad dd od ed 
VOAMAY MMMM 


012110 BGNMSG PKTMES 

012110 PKTMES:: 

012110 004737 006024 JSR PC,.PRITSSR zPRINT CONTENTS OF TSSR 

012114 010200 MOV R2,RO LOW ORDER ADDRESS 

012116 010301 MOV R3,R1 HIGH ORDER ADDRESS 
39 012120 004737 014242 JSR PC,PRMESS sPRINT THE MESSAGE BUFFER 
40 012724 ENDMSG 

012124 L10007: 

012124 104423 TRAP CSMSG 


— 
Ww 
x 
= 





wT? 4 





ete ae ee a eee te eee ae 
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ADDSSR = PRINT TEST ADDRESS AND TSSR SEQ 0065 
1543 .SBTTL ADDSSR = PRINT TEST ADDRESS AND TSSR 
1545 {PRINT ROUTINE TO PRINT THE CONTENTS OF 
1946 ;TSSR AND A MEMORY TEST ADDRESS 
1548 INPUTS: 
1549 : 
1550 : RS FIRST DEVICE UNIBUS ADDRESS 
1551 : ERRHI HIGH ORDER MEMORY TEST ADDRESS 
135¢ : ERRLO LOW ORDER MEMORY TEST ADDRESS 
1554 ° 
1555 012126 BGNMSG ADDSSR 
012126 ADDSSR:: 
1556 012126 006737 010274 JSR PC ,PRITADD :PRINT MEMORY TEST ADDRESS 
1557 012132 016501 000002 MOV TSSR(RS) RI :GET CURRENT TSS 
1558 012136 004737 006024 JSR PC, PRITSSR SPRINT THE CONTENTS OF TSSR REGISTER 
1559 012142 ENDMSG 
012142 L10010: 
012142 104423 TRAP —C$MSG 
i 
1362 : »SBTTL MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
1564 : 
1965 SPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
1567 SIMPLICIT INPUTS: 
1569 EXPMSG = EXPECTED MESSAGE BUFFER 
157 ECMSG = RECEIVED MESSAGE BUFFER 


0 : R 
1571 ; RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


1574 012144 BGNMSG MSGEXP 
012144 MSGEXP: : 
1575 012144 012700 000007 MOV #7,R0 sASSUME NO EXT FEATURES 
1576 012150 005737 002226 TST EXTFEA sEXT FEATURES SET? 
1577 012154 001402 BEQ 5$ BR IF NO 
1578 012156 012700 000010 MOV #8. RO sEXT FEATURE BUFFER IS 8 WORDS 
1579 012162 004737 014552 5$: JSR PC ,PRMSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 
1580 012166 ENDMSG 
012166 L10011: 
012166 104423 TRAP CS$MSG 
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1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1338 
159 
1594 
1595 
1596 012170 
2170 
1597 012170 
2170 010146 
2172 012746 012242 
2176 012746 000002 
2202 010600 
2204 104415 
2206 062706 000006 
1598 0122 
22 012746 012311 
2216 012746 000001 


062706 000004 
1599 010106 
1600 
1601 


104423 
045 


22 

22 

22 

22 

$$i6 004737 015122 
22 

2 

22 116 
23 045 116 


045 
045 





+ 
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FIFEXP = PRINT FIFO EXP/RECV DATA 


FIFEXP = PRINT FIFO EXP/RECV DATA 


SPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


R1 


- BYTE COUNT 


SIMPLICIT INPUTS: 


FIFEXP:: 


L10012: 


FIFIMSG: 
FIF2MSG: 


EXPMSG 
RECMSG 
BGNMSG 
PRINTX 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
~ RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


FIFEXP 
#FIFIMSG,R1 
R1,-(SP) 

ar iF iMsG, =(SP) 
#2,-(SP) 


sPRINT BYTES TRANSFERRED 


CSPNTX 


#FIFOMSG ZPRINT HEADER MSG 
#F IF 2MSG,=(SP) 
#1,-(SP) 


SP,RO 

CSPNTX 

#4,SP 

R1,R0 GET BYTE COUN 

PC ,PRBYTEXP PRINT FIFO BYTES IN ERROR 
CSMSG 


eASCIZ ‘ZNZA NUMBER OF BYTES TRANSFERRED = %v2" 
eASCIZ ‘ZNZA FIFO DATA BYTES IN ERROR: 


SEQ 0066 
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MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS SEQ 0067 





1o07 -SBTTL MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS 
1609 3 
1919 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1612 3 
+ oF s IMPLICIT INPUTS: 
1615 3 EXPMSG = EXPECTED MESSAGE jap os 
1616 $ RECMSG = RECEIVED MESSAGE BUFFER 
1617 3 RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1918 : RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1620 012350 BGNMSG MSGSTAT 
012350 MSGSTAT:: 
1621 012350 012701 012412 MOV #STATCOD,R1 sASCII ADDRESS TABLE 
1622 012354 012100 10$: MOV (R1)+,RO :DON E ALL MSG LINES? 
1623 012356 001410 BEQ 0$ F YES 
1624 012360 PRINTX RO SPRINT STATUS BIT NAMES 
012360 010046 MOV RO,-(SP) 
012362 012746 000001 MOV #1,-(SP) 
012366 010600 MOV SP,RO 
012370 104415 TRAP CSPNTX 
012372 062706 000004 ADD #4,SP 
1625 012376 000766 BR 10$ 7D0 ANOTHER MSG LINE 
1626 012400 012700 000012 20$: MOV #10.,R0 ‘NUMBER OF WORDS IN A READ STATUS BUFFER 
1627 012404 004737 014552 JSR PC .PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
1628 012410 ENDMSG 
012410 L10013: 
1629 012410 104423 TRAP CSMSG 
1630 012412 012430 012472 012563 STATCOD: -WORD 1$,2$,3$,4$,5$,6$,0 
1631 012430 045 116 045 1$:.ASCIZ ‘aN ZA Tape Bus s signals in Word d #8:° 
1632 012472 045 116 045 2$:.ASCIZ ‘ZNZA <15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
1633 012563 045 116 045 3$:.ASCIZ ‘ZNZA TAbeVacta> IIDENT<11> IHER <8> JIONL<5> IFBY<1>° 
1634 012654 045 116 045 4$:.ASCIZ ‘ZNZA IRESV1<13> oe <10> ISPEED<7> ILDP<4> IFPT<0>'* 
1635 012745 045 116 045 5$:.ASCIZ a Tape Bus Ae in W #9:° 
1636 013007 045 116 045 eASCIZ ‘2N% DATMIS<7> Luces OUTRDY<5> INRDY<4>° 
1637 -EVEN 
1638 
1620 
166g P -SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
164 ; 
1 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1e6 s IMPLICIT INPUTS: 
1648 3 EXPMSG = EXPECTED MESSAGE perce 
1649 3 RECMSG = RECEIVED MESSAGE BUFFER 
1650 F RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
163) : RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
16535 013064 BGNMSG MSGLOOP 
013064 MSGLOOP: : 
1654 013064 012701 013126 MOV #LOOPCOD,R1 zASCII ADDRESS TABLE 








TSV3_= GLOBAL AREAS 
MSGLOOP = PRIN 


162° 013070 
6 0130 


1656 013072 
1657 013074 
013074 
013076 
013102 
013104 
013106 
1658 013112 
1659 013114 
1660 013120 
1661 013124 
013124 
013124 

1662 
1663 013126 
1664 013146 
1665 013221 
1666 013320 
1667 013417 
1668 013516 
1669 013615 
1670 013714 

1671 

1672 
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000001 
000004 


000012 
014552 


013 


os od 
od as od ds sd =) 
AAAAAAQQO— 


LOOPBACK HEADER AND MESSAGE BUFFERS 


10$: 


20$: 


L10014: 
T 


LOOPCOD: 
1$: .ASC 





(R1)+,RO :DONE ALL MSG LINES? 

RO ‘PRINT STATUS BIT NAMES 

RO,=(SP) 

#1.=(SP) 

SP.RO 

CSPNTX 

#4,SP 

10$ :D0 ANOTHER MSG LINE 

#10. ,RO [NUMBER OF WORDS IN A READ STATUS BUFFER 
PC ,PRMSGEXP [PRINT EXPD/RECV MESSAGE BUFFERS 
CSMSG 


-WORD 1$,2$,3$,4$,5$,6$,7$,0 

Tape ove Loopback Signals in Word #8:° 
ARERR<15> IRESV2<14> 

IHISP= OT <12> IWRT=>1 IDENT<11> 

IWFM =>I1FMK<09> IEDIT=>IHER <08> 


oA ia =>IRDY<06> ITAD1=>IONL <05> 


=>IDBY<03> IRWU =>IRWD <02> 


*"ZNZA I1GO =>IFPT<00>° 


IERASE=>ILDP  <04>° 





TSV3 = GLOBAL AREAS 


1687 Eo 


52 
013752 


Le 


NNN ONS 
3S & 
oS 
= 
Ww 
“ 
w 
& 


1 
1 
1 
1 
1 
1 
1 
1 


1714 


at od 
Who 


MACRO M1113 25-MAY-82 09:19 PAGE 39 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


-SBTTL MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


SIMPLICIT INPUTS: 


L10015: 


+ 


EXPMSG = EXPECTED MESSAGE pat 

RECMSG = RECEIVED MESSAGE BUFFER 

RCVHIADD=~ RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSUB 

*" MOV #10. RO 3SIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC ,PRMSGEXP SPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
TRAP _——C$MSG 


-SBTTL MEMADD = PRINT MEMORY ADDRESS DATA ERROR 


[PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
SIMPLICIT INPUTS: 


L10016: 





ERRHI = MEMORY ERROR HIGH ORDER ADDRESS 
ERRLO = MEMORY ERROR LOW ORDER ADDRESS 
EXP = EXPECTED DATA 
RECV - RECEIVED DATA 


BGNMSG MEMADD 
"JSR PC, PRIADD PRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,R1 SGET EXPD DAT 
MOV RECV.R2 GET RECEIVED DATA 
SR PC, PRIXOR SPRINT EXPD/RECV 
ENDMSG 
TRAP —C$MSG 


6 
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PRAMPKT = PRINT RAM AND PACKET DATA SEQ 0070 
1736 .SBTTL PRAMPKT = PRINT RAM AND PACKET DATA 
s* 

1718 : 
1719 ZPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1720 [WHEN THE RAM DATA DOES NOT MATCH. 
1722 ; INPUTS: 
1723 3 
1726 ; RG POINTER TO COMMAND PACKET 
1726 : IMPLICIT INPUTS: 
1728 s RAMDATA DATA AS oor FROM y RAM 
1729 ; RAMSIZ NUMBER OF BYTES IN PACKET 
fe : IF BEmSi y= 0 THEN DEFAULT TO 8. 
He : IMPLICIT OUTPUTS: 
1734 : RAMSIZ SET TO 0 
1735 :- 
1736 
1737 013776 PRAMPKT: 
1738 013776 SAVREG sSAVE R1-R5 we Ae NEXT RETURN 
1739 014002 012701 002242 MOV #RAMDATA,R1 [DATA FROM THE RAM 
1740 014006 005002 CLR R :INIT BYTE NUMBER 
1741 014010 122124 S$: CMPB Ss (R11) +, (RG) + * COMPARE EXPECTED, RECEIVED 
1742 014012 001005 BNE 7$ [BR IF NO MATCH 
1743 014014 FORCERROR 7$,NOTSSR 
1744 014024 000436 BR 10$ aap 
1745 014026 116105 177777 7$: MOVB = =17(R1) RS 2GET RECV RAM DAT 
1746 014032 116403 177777 MOVB =1(R4),R3 :GET EXPD PACKET DATA 
1747 014036 XOR 5,R3 :XOR EXPD/RECV 
1748 014046 042703 177400 BIC #177400,R3 BYT 
1749 014052 116137 177777 002234 MOVB =1(R1) .RECV :GFT RECEIVED RAM DATA 
1750 014060 116437 177777 002232 MOVB <=1(R4), :GE; EXPECTED RAM DATA 
1751 014666 PRINTB #RAMASC . Re, RECV,EXPD,R3 

014066 010346 7 (SP) 

014070 013746 002232 MOV EXPD,=(SP) 

014074 013746 002234 MOV RECV,=(SP) 

014100 010246 MOV R2,-(SP) 

014102 012746 014156 MOV #RAMASC,-(SP) 

014106 012746 000005 MOV #5,-(SP) 

014112 010600 : 

014114 104414 TRAP C$PNTB 

014116 062706 000014 ADD #14,SP 
1752 014122 005202 10$: INC R2 ZUPDATE BYTE COUNT 
1753 014124 005737 002302 TST RAMSIZ “DEFAULT TO 8.? 
1754 014130 001404 BEQ ‘BR IF YES 
1755 014132 020237 002302 CMP R2,RAMSIZ : DONE ALL BYTES? 
1756 014136 003724 BLE 5$ :BR IF NO 
1757 014140 0 BR 25$ 
1758 014142 020227 000010 15$: CMP R2,4#8. :DONE DEFAULT NUMBER OF BYTES? 
1759 014146 002720 20$: BLT $ 
1760 014150 005037 002302 25$: CLR RAMSIZ :SET DEFAULT RAMS IZ 
1761 014154 000207 RTS PC s RETURN 
1763 014156 045 116 045 RAMASC: .ASCIZ ‘%ZNZA BYTE: %D2%A RAM: %O3%A Packet: %O3%A XOR:%03° 





G 6 
TSV3_= GLOBAL AREAS MACRO M1113 25=MAY-82 09:19 PAGE 40-1 
PRAMPKT = PRINT RAM AND PACKET DATA SEQ 0071 


1764 -EVEN 
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SS = PRINT CONTENTS OF MESSAGE BUFFER SEQ 0072 
1768 .SBTTL PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 
:* 
1770 
1771 STHIS ROUTINE PRINTS THE CONTENTS 0 
127e : HE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 
1774 : 
46} : INPUT: 
1777 : LOW ORDER ADDRESS OF MESSAGE BUFFER 
1778 : HIGH ORDER ADDRESS OF MESSAGE BUFFER 
1779 ; NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
1781 :THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
1783 $= 
1784 
1785 014242 PRMESS: 
1786 0147’ _ SAVREG ZSAVE THE REGISTERS 
172? ~ 4266 010005 MOV RO,RS ‘SAVE LOW ORDER ADDRESS 
406 014250 005737 003134 TST KTENABLE SADDRESS ABOVE 28K? 
1789 014254 001001 BNE 10$ :BR IF. YES 
1790 014256 005001 CLR R1 SET HIGH ORDER ADDRESS TO 0 
1791 014260 010103 10$: MOV R1,R3 SSAVE HIGH ORDER ADDRESS 
1792 014262 006100 ROL RO i SHIFT BIT15 TO C BIT 
1793 014264 006101 ROL R1 [SHIFT TO HIGH ORDER FOR PRINTOUT 
179% 014266 PRINTX #PROASC,R1,R5  :PRINT MESSAGE BUFFER ADDRESS 
014266 010546 MOV RS,=(SP) 
014270 010146 MOV R1.-(SP 
014272 012746 014420 MOV #PROASC,=(SP) 
014276 012746 000003 MOV #3,-(SP 
014302 010600 MOV SP.RO 
014304 104415 TRAP — C$PNTX 
014306 062706 000010 ADD #10,SP 
1795 014312 PRINTX #PRIASC ZPRINT HEADER FOR CONTENTS 
014312 012746 014465 MOV #PRIASC,=(SP) 
014316 012746 000001 MOV #1,-(SP) 
014322 010600 MOV SP_RO 
014324 104415 TRAP — CS$PNTX 
014326 062706 000004 ADD #4,SP 
1796 014332 005004 CLR RG :NUMBER OF THE aliEx? WORD 
1797 014334 010501 MOV R5,R1 [COPY LOW ORDER ADDRESS 
1798 014336 010300 MOV R3_RO [COPY HIGH ORDER ADDRESS 
1799 014340 001403 BEQ 208 F NOT ABOVE 28k 
1800 014342 004737 017316 JSR PC, SETMAP ‘SETUP PAR ADDRESS | 
1801 014346 010005 MOV RO-R [GET PAR FORMAT ADDRESS ABOVE 28k 
1802 014350 20$:  PRINTX #PRASC,R4,(R5)* :PRINT THE CONTENTS OF MEMORY BUFFER 
014350 012546 MOV (R5)+, =(SP) 
014352 010446 MOV = (SP 
014354 012746 014523 MOV #PRASC,-(SP) 
014360 012746 000003 MOV (SP 
014364 010600 MOV P-RO 
014366 104415 TRAP  CS$PNTX 
014370 062706 000010 ADD #10,SP 
1803 014374 005204 INC :NUMBER OF THE NEXT 
1804 014376 020427 000007 CMP RGA? [DONE ALL YET ? 
1805 014402 003005 BGT 0g SBRANCH iF ALL DONE 





: 
S ie 
= 


° AREAS 
PRMESS 
1806 014404 002761 
1807 014406 032763 
1808 014414 001355 
24 014416 000207 
1811 014420 045 
1812 014465 045 
1813 014523 045 
1814 
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000200 000012 


th aa 


—~— 
AAO 


045 
045 
045 


= PRINT CONTENTS OF MESSAGE BUFFER 


50$: 


PROASC: 


20$ PRINT FIRST 7 WORDS 

aXe. EXTF, KST2(R35 ZEXTENDED FEATUTES ON ? 

20$ PRINT EXTENDED STATUS WORD 
PC {RETURN 


‘ZENZA Message Buffer Address = , 201205" 
SENZA Message Buffer Contents: ' 
*ZNZA Word%D1ZA: %0° 


SEQ 0073 


naan’ 












TSV3_= GLOBAL AREAS MACRO M1113 25-MAY-82 09:19 PAGE 42 
PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 
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1816 .SBTTL PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 
1818 : 
1819 ZROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
1821 ; RO = NUMBER OF WORDS IN BUFFER 
1823 S IMPLICIT INPUTS: 
1825 ; EXPMSG = EXPECTED MESSAGE BUFFER 
1826 : RECMSG = RECEIVED MESSAGE BUFFER 
1827 : RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1828 : RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1830 014552 PRMSGEXP: : 
1831 014552 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1832 014556 010005 MOV RO,RS sSAVE NUMBER OF WORDS 
1833 014560 013700 002306 MOV RCVLOADD,RO sGET RECV LOW ADDRESS 
1834 014564 010004 MOV RO,R :COPY LOW ADDRESS 
1835 014566 013701 002304 RCVEIADD,R1 ZGET RECV HIGH ADDRESS 
1836 014572 006100 ROL RO ‘SHIFT BIT15 TO C BIT 
1837 014574 006101 L R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
1838 014576 PRINTX #PRMSGU,R1.R4 :PRINT MESSAGE BUFFER ADDRESS 
014576 010446 V R4,=(SP) 
014 010146 MOV R1,-(SP) 
014602 012746 014732 MOV #PRMSGC,-(SP) 
4 012746 000003 MOV #3,-(SP) 
014612 010600 MOV SP,RO 
014614 104415 TRAP — CSPNTX 
014616 062706 000010 DD #10,SP 
1839 014622 PRINTX #PRMSG1 sPRINT HEADER FOR CONTENTS 
014622 012746 014777 V #PRMSG1,-(SP) 
014626 012746 000001 MOV #1,-(SP) 
014632 010600 MOV SP,RO 
014634 104415 TRAP _— CS$PNT 
014636 062706 000004 ADD #4,SP 
1840 014642 005 CLR RS ;NUMBER OF THE CURRENT WORD 
1841 014644 012701 002322 MOV #EXPMSG,R1 sGET EXPD BUFFER ADDRESS 
1842 014650 012702 002466 MOV #RECMSG.R2 “GET RECV BUFFER ADDRESS 
1843 014654 011100 208: MOV (R1),RO [GET EXPD 
1844 014656 011203 MOV (R2) ,R3 :GET RECV 
1845 014660 RO.R 3XOR EXPD/RECV 
1846 014670 PRINTX #PRMSG2,R4,(R1)+,(R2)+,R3 
014670 010346 v R3,-(SP) 
014672 012246 MOV (R3)+,=(SP) 
014674 012146 MOV (R1)4,-(SP) 
014676 010446 MOV R4,-(SP) 
014700 012746 015035 MOV 62,-(SP) 
014704 012746 000005 mov #5,-(SP) 
014710 010600 SP, 
CSPNTX 
000014 ai4.sP_ 
Rg Yas ZNUMBER OF THE NEXT 
R4_RS [DONE ALL YET? 
50$ [BR IF YES 
20$ :D0 ANOTHER 
PC RETURN 








isve = GLOBAL AREAS 
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PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 


1888 014732 
1854 014777 
1855 015035 
1856 


1857 


045 
045 
045 


116 045 PRMSGO: .ASCIZ ‘ZNZA Message 
116 045 PRMSG1: Reels Ha a aseee 
116 045 PRMSG2: .ASCIZ 





Buf fer wort A = , 201%05° 
Buffer Cont 
#ID2ZA EXPD: "Sia RECV: %06%A XOR: %06° 


SEQ 0075 


SA a CN A papigge: a 
TSV3_= GLOBAL AREAS MACRO M1113 25-MAY-82 09:19 PAGE 43 


PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0076 
1859 -SBTTL PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
:* 
1861 
186¢ SROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
1863 : ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1865 : RO - NUMBER OF BYTES IN BUFFER 
1867 S IMPLICIT INPUTS: 
1869 ; EXPMSG = EXPECTED MESSAGE BUFFER 
1870 : RECMSG = RECEIVED MESSAGE BUFFER 
1872 015122 PRBYTEXP:: 
1873 015122 SAVREG :SAVE R1-R5 UNTIL NEXT RETURN 
1874 015126 010005 MOV RO,RS :SAVE NUMBER OF BYTES 
1875 015130 005037 002320 CLR PRMNO SINIT ERROR COUNT 
1876 015134 005004 CLR RG ‘NUMBER OF THE CURRENT BYTE 
1877 015136 012701 002322 MOV #EXPMSG,R1 [GET EXPD BUFFER ADDRESS 
1878 015142 012702 002466 MOV #RECMSG, *R2 :GET RECV BUFFER ADDRESS 
1879 015146 111100 208:  MOVB  (R1),RO ‘GET EXPD BYTE 
1880 015150 042700 177400 BIC #C<857>,RO ‘CLEAR UPPER BYTE 
1881 015154 110037 015470 MOVB RO, PRBEXP SSAVE FOR ERROR REPORT 
1882 015160 111203 MOVB (R2),R3 [GET RECV BYTE 
1883 015162 042703 177400 BIC #°C<377>,R3 [CLEAR UPPER BYTE 
1884 015166 116337 015472 MOVB  R3,PRBREC :FOR ERROR REPORT 
1885 015172 XOR [XOR EXPD/RECV 
1886 015202 122122 CMPB ss (R'1) +, (R2)+ ‘EXPD = RECV? 
1887 015204 001431 BEQ 30$ BR IF YES 
1888 015206 005237 002320 INC PRMNO [UPDATE ERROR COUNT 
1889 015212 023727 002320 000010 CMP PRMNO, #8. SPRINTED 8? 
1890 015220 101023 BHI *BR IF YES 
1891 015222 27$:  PRINTX #PRBMSG,R4,PRBEXP,PRBREC,R3 
015222 010346 MOV = (SP) 
015224 013746 015472 MOV PRBREC,=(SP) 
015230 013746 015470 MOV PRBEXP.=(SP) 
015234 010446 MOV R4,=(SP) 
015236 012746 015336 MOV #PRBMSG, = (SP) 
015242 012746 000005 MOV #5,-(SP) 
015246 010600 MOV P.RO 
015250 104415 TRAP _—C$PNT 
015252 062706 000014 ADD #14,SP 
1892 015256 FORCEXIT 50$ aap 
1893 015266 000404 BR 35$ saad 
1894 015270 30S: 
1895 015270 FORCERROR 27$,NOTSSR ;aaD 
18% 015300 35$: aad 
1897 015300 005204 INC [NUMBER OF THE NEXT 
1898 015302 020405 CMP Re RS SDONE ALL YET? 
1899 015304 002001 BGE 50$ 7BR IF YES 
1900 015306 000717 BR 20$ :D0 ANOTHER 
1901 015310 50$:  PRINTX #PRBTOT,PRMNO PRINT TOTAL ERROR COUNT 
015310 013746 002320 MOV PRMNO, = (SP) 
015314 012746 015423 MOV #PRBTOT, =(SP) 
015320 012746 000002 MOV #2,-(SP5 
015324 010600 MOV SPR 
015326 104415 TRAP — C$PNTX 
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PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0077 
015330 062706 000006 ADD #6,SP 
1908 015334 000207 RTS PC RETURN 
1904 015336 045 116 045 PRBMSG: .ASCIZ ‘'%NZA BYTE #2D2%A_ EXPD: 203%A RECV: 203%A XOR: 203° 
1905 015423 045 116 045 PRBTOT: ASCH? "ZNZA NUMBER OF BYTES IN ERROR = %D2° 
1907 015470 000000 PRBEXP: .WORD 0 ZEXPD 
1908 015472 000000 PRBREC: .WORD 0 TRECV 






EXPREC = PRINT EXPD/RECV WORD DATA 


1911 -SBTTL 

1912 3 

1913 

1914 

1915 ; 

1916 : INPUTS: 

1917 : 

1918 : R1 

1919 3 R2 

1920 3 

1921 = 

1922 

1923 015474 BGNMSG 
015474 EXPREC:: 

1924 615474 004737 007742 JSR 

1925 015500 ENDMSG 
015500 L10017: 
015500 104425 TRAP 


TSV3_ = GLOBAL AREAS MACRO M1113 25=MAY=82 09:19 PAGE 44 


EXPREC = PRINT EXPD/RECV WORD DATA 


PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC : 
PC,PRIXOR sPRINT THE DATA 


C$MSG 


SEQ 0078 












EXPBREC = PRINT EXPD/RECV BYTE DATA 
-SBTTL 


~ 
ono 
SS 





3¢ 


SPRINT ROUTINE 
‘INPUTS: 


TSV3_= GLOBAL AREAS MACRO M1113 25-MAY=82 09:19 PAGE 45 


EXPBREC = PRINT EXPD/RECV BYTE DATA 


1930 3 
1931 : 
1336 sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
1934 : 
1935 s INPUTS: 
1936 : 
1937 3 R1 RECEIVED DATA BYTE 
1938 3 R2 EXPECTED DATA BYTE 
1939 $ 
1940 ;- 
1941 
1942 015502 BGNMSG EXPBREC 

015502 EXPBREC:: 
1943 015502 004737 007612 JSR PC,PRIBXOR sPRINT THE DATA 
1944 015506 ENDMSG 

015506 L10020: 

015506 104423 TRAP CSMSG 
1945 
1946 
1947 
1948 
a4 -SB8TTL RAMERR = PRINT RAM AND PACKET DATA 
1951 : 
1336 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1954 ; INPUTS: 
1955 3 
ioe ; R4 POINTER TO COMMAND PACKET 
as Zs IMPLICIT INPUTS: 
1960 3 RAMDATA DATA AS or ay FROM vo RAM 
1961 3 RAMS1Z NUMBER OF BYTES IN PACKET 
1oe8 : IF RAMS] 7=0 THEN DEFAULT TO 8. 
Hs ¢3 IMPLICIT OUTPUTS: 
1966 3 RAMSIZ SET T0 0 
1967 = 
1968 
1969 015510 BGNMSG RAMERR 

015510 RAMERR: : 
1970 015510 004737 013776 JSR PC, PRAMPKT sPRINT RAM/PACKET DATA 
1971 015514 ENDMSG 

015514 L10021: 

015514 104423 TRAP CSMSG 

-SBTTL RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA 


TO DISPLAY RAM/PACKET DATA 








TSV3_ = GLOBAL AREAS MACRO M1113 25=MAY-82 09:19 PAGE 45-1 
RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA 


? 


138) 3 R4 POINTER TO COMMAND PACKET 
1988 sIMPLICIT INPUTS: 
1985 : RAMDATA DATA AS READ FROM THE RAM 
1986 ; RAMSIZ NUMBER OF BYTES IN PA 
1987 : F RAMSIZ=0 THEN DEFAULT TO 8. 
1988 3 ERRHI HIGH ORDER TES DRE 
1355 : ERRLO LOW ORDER TEST ADDRESS 
1991 + IMPLICIT OUTPUTS: 
1992 ; 
1993 3 RAMSIZ SET T0 0 
1994 i- 
1995 
1996 015516 BGNMSG RAMTADD 

015516 RAMTADD: : 
1997 015516 004737 010274 JSR PC. PRITADD sPRINT TEST ADURESS 
1998 015522 004737 013776 JSR PC, PRAMPKT ;PRINT RAM/PACKET DATA 
1999 015526 ENDMSG 

015526 L10022: 

015526 104423 TRAP CSMSG 
ast -SBTTL RAMEXP = PRINT RAM EXPD/RECV DATA 

3+ 

2004 3 
aed sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
2007 3 INPUTS: 
2008 ; 
2009 3 R1 RECEIVED wey 
2010 PF; R2 EXPECTED DAT 
2011 3 RG CONTROLLER RAN ADDRESS 
2012 s= 
2013 
2014 015530 BGNMSG RAMEXP 

01553 RAMEXP: : 
2015 015530 042701 177400 BIC #*C<377>,R1 sSAVE EXPD RAM DATA BYTE 
2016 015534 042702 177400 BIC #°C<377>. R2 :SAVE EXPD RAM DATA BYTE 
2017 015540 004737 010066 JSR PC, PRIRAM sPRINT THE RAM ADDRESS 
2018 015544 004737 007742 JSR PC. PRIXOR sPRINT THE DATA 
2019 015550 ENDMSG 

015550 L10023: 
2020 015550 104423 TRAP CSMSG 
Soop -SBTTL TIMEXP = PRINT TIMER A,B AND EXP/REC 

:¢ ; 

2023 
2024 *PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
44 AND TIMER A,B HEADER MESSAGE 
2027 INPUTS: 


R1 RECEIVED DATA 
R2 . EXPECTED DATA 


SEQ 0080 


"I 





ss 


TSV 


Ww 


ee 
VMI 


5566 

2035 015573 
2036 015 

01 ere 


015576 
7 


2038 
2039 015600 
2040 





= GLOBAL AREAS 
TIMEXP = PRINT TIMER A,B AND EXP/REC 


015600 
000001 


000004 
007742 


045 116 





TIMEXP:: 


L10024: 
T 


045 TIMSGO: .ASCIZ 
-EVEN 


MACRO M1113 25=MAY=82 09:19 PAGE 45-2 


TIMEXP 
#TIMSGO :PRINT HEADER 
#TIMSGO,=(SP) a tae 
#1,=(SP5 

SP-RO 

CSPNTX 

#4,SP 

PC :PRIXOR :PRINT THE DATA 
C$MSG 


*ZNZA TIMER A STATUS IS IN BIT 3%N%A TIMER B STATUS IS IN BIT 2° 


SEQ 0081 







054 
2055 015700 
015700 
2056 015700 


2057 015702 
2058 015706 
015706 


015724 
2059 015730 
2060 015732 
2061 015736 
015736 


015736 
2062 015740 
2063 


TSV3_= GLOBAL _AREAS 
BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 
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177400 


015740 
000002 


000006 
006024 


116 


045 


-SBTTL BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 


ig 


PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 


INPUTS: 


R1 
R2 


L10025: 
RA 
XFERASC: 


CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 
R2,-(SP) 
#177400,R2 
#XFERASC,R2 
R2,-(SP) 
#XFERASC,-(SP) 
#2,-(SP) 
PC,PRITSSR 


CSMSG 


SAVE DATA TRANSFERRED 
GET JUST ONE BYTE 


sRESTORE R2 
sDECODE TSSR CONTENTS 


eASCIZ ‘%NZA Data Transferred = %03' 


SEQ 0082 
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GLOBAL SUBROUTINES SECTION 


+ 
e 





~SBTTL GLOBAL SUBROUTINES SECTION 


p++ 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


SEQ 0083 


sy 


Se ee 67 
T 


SV3 = GLOBAL AREAS MACRO M1113 tical 09:19 PAGE 48 


SOFINIT = SOFT INITIALIZE OF CONTROLLER SEQ 0084 
oor? -SBTTL SOFINIT = SOFT INITIALIZE OF CONTROLLER 
ae * 

2077 sROUTINE TO DO A SOFT INITIALIZE OF Hy; CONTROLLER 
2078 :BY WRITING INTO THE TSSR pest sien. AFTER THE INIT, 
2079 ;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
Seat ;DETECTED SHOULD BE TREATED AS Onevice FATAL ERRORS. 
2082 INPUTS: 

2083 3 

$oee : RS ADDRESS OF FIRST REGISTER 

2086 OUTPUTS: 

2087 3 

2088 3 RO CONTENTS OF TSSR, IF ERROR 

2089 3 CARRY SET IF INIT WAS OKAY 

or ; CLEAR IF FATAL ERROR 

sons CALLING SEQUENCE: 

2094 3 MOV #ADDRESS RS 

2095 3 JSR PC, SOFINIT 

2096 ; BCS CONTINU UE 

2097 Z ERRDF sREPORT FATAL ERROR 
2098 3 

2099 i- 

2100 

2101 015774 SOF INIT:: 

2102 015774 SAVREG 3 SAVE pe REGISTERS 
2103 016000 012765 000000 000002 MOV #0, TSSR(RS) : DO THE INIT. 

2104 016006 004737 016250 JSR PC ,WAITF : T FOR 

2105 016012 016500 000002 MOV TSSR(RS), RO 2GET THE TSSR REGISTER 
2106 016016 010004 MOV RO,R4 TSSR CONTENTS 

2107 016020 042704 176277 BIC #*C<HIADDR!OFL>, ha 

2108 016024 052704 002200 BIS #SSR!NBA,RS 3R4 HAS EXPECTED CONTENTS 
2109 016030 020400 CMP R4,RO sONLY EXPECTED BITS SET ? 
2110 016032 001402 BEQ 5$ ANCH IF OKAY 

2111 016034 241 CLC iCLEAR THE CARRY FOR ERROR 
2112 016036 000401 BR 10$ :G60 TO EXIT 

2113 016040 000261 5$: SEC [SET THE CARRY BIT 
2114 016042 00020 10$: RTS PC sRETURN TO CALLER 
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CHKAMB = CHECK TSSR FOR AMBIGUITY SEQ 0085 


3116 .SBTTL CHKAMB = CHECK TSSR FOR AMBIGUITY 
$119 ” 

2120 [THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 

2121 [FOR AMBIGUITY 

2122 3 

2123 3 INPUT: 

2124 3 

2125 ; RO CONTENTS OF TSSR 

2126 3 

2127 s OUTPUT: 

2128 3 

129 : RO CONTENTS OF TSSR 

2131 : CARRY SET = NO AMBIGUITY 

2132 : CLR = AMBIGUOUS CONTENTS 

2133 : 

2134 :- 

2135 

2136 016044 CHKAMB : 

2137 016044 SAVREG ZSAVE THE GENERAL REGISTERS 
2138 016050 010004 MOV RO,R4 [CONTENTS OF TSSR 

2139 016052 032700 100000 BIT #SC,RO 21S BIT 15 SET ? 

2140 016056 001004 BNE “BRANCH IF YES 

2141 016060 032700 174077 BIT #°C<NBA!OFL! SSR!HIADDR>,RO zANY OTHER BITS SET ? 
2142 016064 00102 BNE 40$ :MUST BE AN ERROR 

2143 016066 BR 45$ SRETURN WITH SUCCESS 

2144 016070 032700 000200 S$: BIT #SSR,RO :1S READY BIT SET ? 

2145 016074 00101 BNE 1 [BRANCH IF READY BIT IS SET. 
2146 016076 032700 000040 BIT #B1T5,RO :1S FATAL ERROR BIT SET ? 
2147 016102 001414 Bz 4 TERROR IF NOT 

2148 016104 042704 177761 BIC #*CTERCLS.R4 | :CLEAR ALL BUT TERMINATION COvE 
2149 016110 020427 000016 CMP R4,416 TALL THREE BITS MUST BE SET 
2150 016114 001007 BNE 40$ SERROR IF NOT SET 

2151 016116 10 BR 45$ 70K IF ALL ARE SET 

2152 016120 032700 000040 10$: BIT #BI1TS,RO 21S FATAL ERROR BIT SET ? 
2153 016124 001405 BEQ SERROR IF BIT IS SET WITH SSR 
2154 016126 032700 000006 BIT #BIT2!BIT1,RO :IS THIS A FUNCTION REJECT 
2155 016132 001002 BNE 45$ ‘BR, IF TSSR IS OK 

2156 016134 000241 40$: CLC TAMBIGUOUS CONTENTS 

2157 016136 000401 BR 50$ 

2158 016140 000261 45$: SEC zSHOW SUCCESS = NO AMBIGUITY 
159 076142 000207 50$: RTS PC [RETURN TO CALLER 


| I 7 
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ENAINT,DSBINT = ENABLE/DISABLE INTERRUPTS SEQ 0086 


316 .SBTTL ENAINT,DSBINT = ENABLE/DISABLE INTERRUPTS 
2166 DEFAULT DISPLAY INTERRUPT HANDLERS. 

2165 ; iF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
3166 ; OTHERWISE. SAVE DPU REGISTERS AND DISMISS. 

2168 ' 

2169 : BIT DEFINITIONS FOR “‘INTMASK'' AND “INTFLAG'' BYTES: 

2171 000200 . IOKCKIN=BIT7 —s«;::- DON'T CHECK FOR BAD INTERRUPTS <= TEST WILL. 
3172 000001 10KSTP=B1T0 : EXPECT ''STOP’’ INTERRUPT. 

2174 : INTERRUPT MASK == SAYS EXPECTING INTERRUPTS 

2175 016144 000 INT Y 

2176 :INTERRUPT FLAG == SAYS WE GOT ONE (IF POSITIVE) 

3177 016145 000 INTFLAG: .BYTE 0 

2179 :SAVED INTERRUPT VECTOR: 

2180 016146 000000 INTVEC: .WORD 0 

2181 sSAVE CPU PC 

2182 016150 000000 INTCPC: .WORD 0 

2184 ; SUBROUTINE TO ENABLE INTERRUPTS: 

2185 016152 010046 ENAINT RO,-(SP) AVE RO 

2186 016154 013700 002210 MOV 1VEC,RO GET POINTER TO VECTORS 
2187 016160 012720 016216 MOV #INTR, (RO)+ ‘SET UP INTERRUPT VECTOR 
2188 016164 012720 000340 MOV #PRIO7, (RO)+ 

2189 016170 012600 MOV (SP)+,RO ZRESTORE RO 

2190 016172 011646 MOV (SP) ,=(SP) 

2191 016174 012766 000000 000002 MOV #0,2(SP) :SET CPU TO LEVEL 0 

2192 016202 000002 RTI 

2194 ; SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
2195 016204 011646 DSBINT: MOV =(SP 

2196 016206 012766 000340 000002 MOV #PR107,2(SP) 

2197 016214 000002 RTI 











had = GLOBAL AREAS 
INT ~ INTERRUPT HANDLERS 


2206 

2207 o16920 

seus 

2210 016246 

2211 016246 
016246 
016246 

2212 

2213 


000002 
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0001 


00 
016145 


000001 
000001 


002224 
016144 
016145 


~SBTTL INTR = INTERRUPT HANDLERS 


scl BGNSRV  INTR :DEFINE INTERRUPT ENTRY 
"mov #1, INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
CLRB  —s INT FLAG [CLEAR FLAG TO SAY WE GOT INTERRUPT 

6178 #IOKSTP, INTMASK 3EX PECTING STOP INTERRUPT? 


F YES 
BISB #IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
i REGISTERS, MSG BUFFER, ETC. 


ENDSRV 
L10026: 





a 2 
















TSV3_= GLOBAL_AREAS 


2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 016250 000401 
2230 016252 
16252 104422 
2231 016254 012746 
2232 016260 016500 
2233 016264 105700 
2234 
2235 016266 100420 
2236 016270 
016270 012727 
016274 00 


2243 016334 


K 7 
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WAITF = WAIT FOR SUBSYSTEM READY 


003000 
000002 


000001 
002116 
177772 
177756 


INPUTS: 


~SBTTL WAITF = WAIT FOR SUBSYSTEM READY 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 


R5 


;OUTPUTS: 


Be 


1$: 
2$: 


3$: 





RO 
CARRY 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
BIT SET 


SET = READY E 
CLR = TIMEOUT WAITING FOR READY 
1$ sNOP WHEN SUPER FIXED 


C$BRK : DO A SUPVSR BREAK FIRST. 
#3000,-(SP) 3300 MSEC TIMER 

TSSR(RS) ,RO sREAD THE TSSR REGISTER 
RO sTEST FOR READY BIT SET 


3$ 3 EXIT ON STOP FLAG. 


1 t WAIT 100 USEC 
#1, (PC)+ 
LSDLY, (PC)+ 
-6(PC) 
74 
~22(0C) 
(SP) : REDUCE DELAY COUNT 
23 :RET RY UNTIL TIMER EXPIRES 
: € = 0, CONTROLLER STILL RUNNING... 

4$ $00 HUNG-UP AFTER 300 MSEC. 

1, CONTROLLER IS STOPPED. 
(SP)+ ‘RESTORE STACK WITHOUT CHANGING CARRY BIT 


PC 


SEQ 0088 








2264 016336 
2265 016336 
2266 01 


2276 016374 


TSV3_= GLOBAL AREAS 
CHKTSSR = CHECK TSSR FOR READY 


? 
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016250 
016044 
100000 
074000 





~-SBTTL CHKTSSR = CHECK TSSR FOR READY 


7*© 


[THIS ROUTINE WAITS FOR READY IN THE TSSR 
SAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


INPUT: 


: RS 
OUTPUT: 


CHKTSSR: 
J 


10$: CLC 
8 


RO 
CARRY 


ADDRESS OF CSR REGISTERS 


CONTENTS OF TSSR 
SET = OKAY 
CLR = NOT READY AMBIGUOUS, OR SC SET 


PC,WAITF :WAIT FOR READY 
SBRANCH IF TIME OUT 

PC, CHKAMB :TSSR AMBIGOUS? 

10$ ‘BR IF YES 

#SC.RO TSPECIAL CONDITION SET? 


° N 
#SSCE !BIE!RMRNXM> ,RO s°NY ERROR BITS SET? 
7SET FAILURE 


20$ : 
sSET SUCCESS 
PC RETURN TO CALLER 


SEQ 0089 





o 
Ww 


SFSF FEF 
NSA RVURO 


So oooo oooOo 
2544 324-4 


z 
sigs 


por 
So 
~~ 


Sooooooooo 
ad ed a a 
SS SSSS SSS 
MMF SRW 
SNOALOOON 


PORSMONMURPINNNPNONINY 
WAWWAWAWWANWnw 
—t Ss 


Nm 
PORK 
FW OC VOONOUSWN Oo 


LS) 
Ww 
Nw 


wi 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


& KVSANSRRAT 





aad = GLOBAL AREAS 
= CHECK FOR NONEXISTENT MEMORY 


020102 
001407 
062701 
000772 
005103 
012716 
000002 


012700 


005737 


000207 
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016430 000004 
000200 000006 


000002 


016440 


000004 


002170 
002204 
002216 


tCALL: 


2$: 


3$: 


SEQ 0090 


«SBTTL XNXM = CHECK FOR NONEXISTENT MEMORY 


= 1, (R1) = NEXM 
0; ALL ADDRESSES. OK. 


3+ 
i ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
RETURN, IF ‘'C"! RESS. 


MOV ADR1,R1 

MOV ADR2,R2 

JSR PC,NXM 

RETURN. sTEST "'C’’ AND PROCEED. 
MOV #2$ 084 3 SET BUSERR VECTOR. 
MOV #PRI04 ,a#6 

CLR R3 LAG. 

TST (R1) TEST | ae taetiee 

Z1F ANY CONTINUE AT 28. 

CMP R1,R2 S OTHERWISE. CON HERE 
BEQ 3$ :BR_ IF FINE SHED (NO NEXM'S). 


SET NEXT ADDRESS... 
3+ eAND Cont INUE. 


COM R3 3GOT ONE, SET FLAG... 


MOV #3$,(SP) 
RTI 3-+eAND DISMISS INTERRUPT... 
a 4 3++eAND GIVE BACK THE VECTOR. 


4,R0 
TRAP CSCVEC 


ADD #2,R1 
BR 1$ 


TST R3 :DID WE CATCH ONE 2? 

BEQ +4 :NO, "C'" = 0, SKIP NEXT 

SEC VES, "'C’' = 1, (R1) = NEXM ADDR. 
RTS PC 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 


i+ 
: SUBROUTINE TO EXECUTE TEST ITERATIONS. 


: EXIT WITH “C’’ SET IF 


LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 


; LOOP COUNTER IS SET BY ‘BEGIN. TEST’’ MACRO. 


: CALL: LOOPTO ARG 
TSTLOOP: : 
TST NOITS ; ITERATIONS INHIBITED? 
BNE 1$ ; YES. 
TST ave NO. 
BMI 1$ ;LOOPS DISALLOWED IN QUICK PASS. 
DEC LOOPCNT : BUMP LOOP COUNTER. 
1$: cue “e ;LOOP DISALLOWED, OR DONE. 
2$: SEC ;LOOP ENABLED. 
3$: RTS PC 





| N 7 
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TSTLOOP = CHECK ITERATION COUNT 


2331 
2332 
9333 .SBTTL TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 
2335 > PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
2336 ; INCREMENT "TESTK’® TO INDICATE THE NUMBER OF TESTS 
2337 : IN RRENT RUN SEQUENCE. 
2338 : Clear’ THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
2340 INPUT: 
9342 : RO POINTER TO TEST ID ASCIZ STRING 
Sere sOUTPUT: 
2346 ; RS ADDRESS OF FIRST DEVICE REGISTER 
348 S IMPLICIT OUTPUTS: 
2390 : TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
2352 ‘SIDE EFFECTS: 
2354 : INTERRUPT LEVEL IS RASIED TO LEVEL OF 
2355 : THE DEVICE UNDER TEST 
2356 5 
2357 ic 
2358 
2359 016510 TSTSETUP: : 
2360 016510 010046 MOV RO,-(SP) ZSAVE THE TEST ID MESSAGE 
2361 016512 005037 003154 CLR SIFLAG : CLEAR "SOFT INIT’’ FLAG 
2362 016516 005037 016756 CLR ERRK : CLEAR LOCAL ERROR COUNTER. 
2363 016522 005037 005772 CLR EXTA : CLEAR ERROR EXTENSION FLAG. 
2364 016526 105037 016144 CLRB —sCINTMASK : CLEAR INTERRUPT MASK (Check ERROR) 
2365 016532 013700 002202 MOV UNITN,RO : GET THE UNIT NUMBER, 
2366 016536 006300 ASL ¢ ... AND MAKE IT A WORD OFFSET. 
2367 016540 005737 003114 TST NODEV : DID STARTUP FIND THE DEVICE? 
2368 016544 001430 BEQ $ ; BR IF YES 
2369 016546 100010 BPL 3$ BR IF NOT IDLE 
2370 016550 052760 160000 003176 BIS #160000, ERTABL(RO) : : FLAG ERROR IN THE ERROR TABLE 
2371 016556 ERRDF 1,NXR,NXRERR  ; NO DEVICE HERE -- PRINT IT 
016556 104455 TRAP  CSERDF 
016560 000001 .WORD 1 
016562 003740 -WORD NXR 
016564 005736 “WORD NXRERR 
2372 016566 07 BR 2$ 
2373 016570 052760 160001 003176 3$: BIS #160001 ERTABL (RO) ; FLAG ERROR IN THE ERROR TABLE 
2374 016576 ERRDF 2,NOINIT : DEVICE NOT IDLE 
016576 104455 TRAP ih 
016600 000002 «WORD 2 
016602 004335 ~WORD NOINIT 
016604 000000 WORD 
2375 016606 012737 177777 003112 28: MOV #-1,DUFLG : DROP THE UNIT 
2376 016614 DODU ~— UNIT 
016614 013700 002202 MOV UNI TN, RO 
016620 104451 TRAP  C$DODU 
016622 : ABORT THE PASS 





SEQ 0091 











Ss 
o 


2 


Bae BIS 
SEER F 


ReECEEESS 


Mr 
W 
oo 
wi 


SOoooooooooooooocoocoso oO 


at tt ss os SS ss Ss Ss Ss Ss Us SS SS os SS 


3 
Se8ee 


ete te 
883 
ao 
es 


Ww 
oO 
por 


TSV3_= GLOBAL AREAS 
TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 


164444 
000423 


=-oo°oo oco°o— 
Ske 238 
NSSSNNS 
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001000 


016704 
000002 


000006 
002214 


002212 


002206 
123 


4$: 


1$: 


5$: 


045 TNAM: 


TRAP 
BR 


RFLAGS 
AP 


R 
-ASCIZ 
EVEN 





CSDCLN 
$ 


(SP)+ 
CSRADDR,RS 
"ZSZTZA Test’ 


; GET THE OPERATOR FLAGS. 


3 PRINT iy TEST NUMBERS? 


; BR IF 
GET THE ID MESSAGE 
DISPLAY THE TEST ID 


:_BUMP TEST COUNTER. 
;PRIORITY THAT OF DEVICE 


3FIX UP THE STACK 
: ADDRESS OF TSV REGISTERS ON UNIBUS 


SEQ 0092 | 





| TSV3 = GLOBAL AREAS 


TSTEND 


2397 

2398 016720 
016720 

2399 016722 

2400 016726 

2401 016730 
016730 


2423 017100 
2424 
2425 017102 
2426 017104 
2427 017110 
2428 017112 
2429 017116 
2430 017122 
2431 017126 
2432 017130 
2433 017136 
2434 017140 
017140 
2435 017142 
2436 017146 
2437 017150 
2438 017156 
017156 
017160 
017162 





004 
013700 


SRESS 
WASUAR 
wsSasssss 


cs 
—OW 
m—M— 
A ass 
ww won — 
ww NWO ~N 
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~ PRINT ERRORS RECEIVED 


020000 


016756 
016760 
000002 


000006 


—o 


016756 
002202 
003176 
007777 


002202 
003176 
170000 
002174 
016756 002172 
000040 

177777 =003112 


- SBTTL 


TSTEND 


= PRINT ERRORS RECEIVED 


AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 


>: IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 
t 


BR IF “‘IER*’ NOT SET. 
PRINT ERROR COUNT. 


LOCAL ERROR COUNT. 


roy /ERROR LIMIT REACHED == DROPPING UNIT/ 


~ INCREMENT LOCAL ERROR COUNT 


3+ 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


STEND: RFLAGS RO 
TRAP  C$RFLA 
BIT RO,#IER 
BEQ 1$ 
PRINTF #ESUM,ERRK 
MOV ERRK,=(SP) 
MOV #ESUM, = (SP) 
MOV #2,-(SP 
MOV SP,RO 
TRAP _— CSPNTF 
ADD #6,SP 

1$: RTS 

ERRK: 0 

ESUM: .ASCIZ /%A %D%A ERRORS/ 

EMAXDU: 
.SBTTL INCERK 

INCERK: INC ERRK 
MOV RO,-(SP) 
MOV UNITN,RO 
ASL R 
ADD #ERTABL RO 
BIT #7777, (RO) 
BNE 1$ 
DEC (RO) 

1$: MOV (SP)+,RO 
RTS PC 

CKEMAX: MOV RO,-(SP) 
MOV UNITN,RO 
ASL RO 
MOV ERTABL (RO) RO 
BIC #170000,R0 
CMP RO, GERRMAX 
BHIS 1 
CMP ERRK ,LERRMAX 
BLO $ 

1$: RFLAGS RO 
TRAP  C$RFLA 
BIT #1DU,RO 
BNE 
MOV #-1,DUFLG 
ERRDF 4, EMAXDU 
TRAP CSERDF 
«WORD 4 
-WORD EMAXDU 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 


GET UNIT NUMBER, 
IT A WORD OFFS 


_ eee AND MAKE ET. 
RO GETS ADDRESS OF ERROR TABLE pr. 


INCREMENT THE DEVICE ERROR COUN 
WE OVERFLOW THE FIELD? 


BR IF NO. 

YES == BACK IT UP TO 7777. 
RESTORE RO 

RETURN TO CALLER. 


R 
«22 AND MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 


; EXTRACT ERROR COUNT 


FIELD 
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 


BR Y 
; IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 


GET OPERATOR FLAGS 


IS DROPPING INHIBITED? 
BR IF YES. 
NO -- DROP THE UNIT 


SEQ 0093 





TSV3_= GLOBAL AREAS 


INCERK 


= INCREMENT LOCAL ERROR COUN 


017164 
2439 017166 
017166 
172 


017172 
2440 017174 

017174 
2441 017176 
2442 01 
2443 


7200 


060000 


013700 
104451 


104444 
012600 
000207 
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002202 


2$: 


. WORD 

DODU UNITN 
MOV UNITN,RO 
TRAP CSDODU 
DOCLN 

TRAP CSDCLN 


MOV (SP) $RO 
PC 


: RESTORE RO 
: RETURN TO CALLER 


SEQ 0094 


CKDROP 





2445 

2446 

2447 

2448 

2449 017202 

2450 017204 

2451 017214 
017214 

2452 017216 

2453 017222 


7240 

2457 017242 
017242 

2458 017244 
$623 017246 


TSV3_ = GLOBAL AREAS 
= CHECK IF UNIT SHOULD BE DROPPED 


o 
—_ 
So 
= 
o 


ges se ecses 
Se fa wocee 


st 
N 
ties 
oo 
o 


004737 
000207 
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000040 


177777 +=003112 
002202 


015774 


‘ .SBTTL CKDROP = CHECK IF UNIT SHOULD BE DROPPED 
: CHECK IF UNIT SHOULD BE DROPPED 
CKDROP: MOV RO,=(SP) 
FORCERROR 
RFLAGS R 
TRAP 


0 1$,NOTSSR 
CSRFLA 


BNE 
MOV (SP) ,RO 
MOV #-1,DUFLG 
DODU UNITN 
MOV UNITN,RO 
TRAP C$DODU 
DOCLN ABORT THE PASS 
TRAP CSDCLN 
1$: MOV (SP)+,RO 
RTS PC 


~SBTTL CONFIG = DETERMINE CONFIGURATION OF SYSTEM 
; SUBROUTINE = DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


CONF IG: 
JSR PC,SOFINIT 
RTS PC 


SEQ 0095 


a 


PS A Ea F 8 
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KTON,KTO = ENABLE/DISABLE MEMORY MANAGEMEN SEQ 0096 
“44 -SBTTL KTON,KTOFF = ENABLE/DISABLE MEMORY MANAGEMENT 
oot 3; SUBROUTINE = ENABLE MEM MGT. 
2479 017256 005737 003132 KTON: TST KTFLG 3; GOT KT? 
2480 017262 001403 BEQ 1 ; NO. 
2481 017264 012737 000001 177572 MOV #1,SRO0 3; YES. ENABLE KT11. 
2482 017272 000207 1$: RTS PC 
2483 
2484 
2485 
2486 3 
pert ; SUBROUTINE = DISABLE MEM MGT. 
2489 017274 005737 003132 KTOFF: TST KTFLG 3; GOT KT11? 
2490 017300 001405 BEQ 1$ 3 NO. 
2491 017302 000240 NOP 
2492 017304 000240 NOP 
2493 017306 012737 000000 177572 MOV #0,SRO ; DISABLE KT. 
Seas 017314 000207 1$: RTS PC 


2496 
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SETMAP = SETUP PAR6 MAPPING SEQ 0097 
2498 .SBTTL SETMAP = SETUP PAR6 MAPPING 
$200 ¥ 
2502 ;THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
2503 AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
2504 is RETURNED BIASED TO PAR6. 
506 INPUTS: 
2507 3 
2508 : RO HIGH ORDER ADDRESS BITS 
2509 ; R1 LOW ORDER ADDRESS BITS 
seit OUTPUTS: 
2513 : RO OFFSET INTO BLOCK WITH PAR6 BIAS (1.£. THE ADDRESS) 
2514 : CARRY SET IF SUCCESS 
2515 3 CLR IF ERROR 
2516 :- 
2517 017316 SETMAP: 
2518 017316 SAVREG SSAVE_RT=R4 UNTIL NEXT RETURN 
2519 017322 005737 003132 TST KTFLG > SYSTEM HAVE ABOVE 28k? 
2520 017326 001433 BEQ 10$ ‘BR IF NO 
2521 017330 010102 MOV R1,R2 TSAVE LOW ORDER BITS 
2522 000006 .REPT 6 
2523 ASR RO ZCONVERT WORD ADDRESS TO 32W BLOCKS 
2524 ROR R1 [MAKE IT DOUBLE PRECISION 
2526 017362 042701 000177 BIC #177,R1 ZALINE FOR LOWER 4K BOUNDARY 
17366 020137 003132 CMP R1,KTFLG ‘HIGHER THAN EXISTING MEMORY? 

2528 017372 103011 BHIS 108 - 3BR F YES 
2529 017374 010137 172354 MOV R1, @AKIPARG ZSETUP MAPPING REGISTER PAR6 
2530 017400 042702 160000 BIC #160000,R2 : SETUP DISPLACEMENT IN PAGE 
2531 017404 062702 140000 ADD #140000.R2 D IN PAR6 BIAS 

MOV R2,RO RETURN N INR 

SEC :SET SUCCESS 

BR 15$ : 

CLC “SET FAILURE 

RTS PC RETURN 


a s 


lk | a Ga a ORR SE IEEE 
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FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN SEQ 0098 


$238 -SBTTL FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN 
i 

2541 ; FILL MEMORY WITH A BACKGROUND PATTERN 

254 ; INPUTS 

2544 3 

2545 ; RO = BACKGROUND PATTERN 

2546 : FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

347 ; KTFLG == SET TO HIGHEST MEMORY LOCATION IF > 28K. 

2549 : OUTPUTS 

2550 : 

2551 ; NONE 

2552 - 

2553 : 

2554 017422 FILLMEM: 

2555 017422 SAVREG 3s SAVE vr UNTIL NEXT RETURN 

2556 017426 004737 017274 JSR PC,.KTOFF [DISABLE K 

2557 017432 010003 MOV 0,R3 sCOPY TEST PATTERN 

2558 017434 013701 003124 MOV REE,R1 [GET FIRST FREE LOCATION 

2559 017440 013702 003126 MOV FRESIZ,R2 [SIZE OF FREE SPACE BELOW 28K. 
017444 010321 10$: MOV (RID ZSTORE A BACKGROUND WOR 

2561 017446 005302 DEC ZDONE ALL MEMORY IN FREE SPACE? 

2562 017450 003375 BGT 10 :BR IF NO 

2563 017452 005737 003132 TST KTFLG : GOT KT? 

2564 017456 001477 BEQ 55$ : NO. GET OUT. 

2565 017460 004737 017256 JSR PC ,KTON YES. ENABLE KT. 

2566 017464 005 CLR ‘HIGH ORDER ADDRESS S$ 

2567 017466 013701 003152 MOV PST32W,R1 :GET >28K START ADDRESS” UN 32W BLOCKS) 

2568 .REPT 6 

2569 CLC 3CLEAR C BIT 

2570 ROL R1 : CONVERT BLOCKS TO WORDS 

2571 ROL RO [MAKE IT DOUBLE PRECISION 

2572 017536 737 017316 JSR PC, SETMAP ZSETUP PAR6 MAPPING REGISTER 

2574 017542 010320 30$: MOV R3.(RO)+ i STORE TEST PATTERN IN 228K AD ADDRESS 

2575 017544 020027 160000 CMP RO, #160000 ZEND OF PAR6 MAPPING AR 

2576 017550 103774 BLO 30 

2577 017552 162700 020000 SUB #20000,RO [BACKUP INTO PAR6 MAPPING BEGIN 

2578 017556 062737 000200 172354 ADD #200, a#KIPAR6 POINT TO NEXT, 4K BLOCK >28k. 
017 023737 172354 003132 CMP @AKIPARG,KTFLG END of MEMOR 

2580 017572 001427 BEQ 50$ 7BR IF YES 

2581 017574 005737 003144 TST T23A 211/23A? 

2582 017600 001407 BEQ 35$ [NO KEEP GOING 

2583 017602 013704 177572 MOV SRO,R4 :GET aro CONTENTS 

2584 017606 042704 177761 BIC #177761,R4 CL ALL BUT PAGE NUMBER 

2585 017612 022704 000016 CMP #16,R4 SEE Mr PAGE 7 

2586 017616 001415 BEQ 0$ sEXIT IF THERE 

2587 017620 005737 003146 35$: TST 123k *11/238? 

2588 017624 00141 BEQ 45$ :NO KEEP GOING 

2589 017626 023727 172354 007600 CMP a#K IPAR6, #7600 REACHED 18 BITS? 
017634 103001 BHIS 40$ 

2591 017636 000403 BR 45$ ; P GOING 

2592 017640 012737 020 172516 40$: MOV #20,SR3 3SET ne Ai RELOCATION 

2593 017646 000137 017542 45$: JMP 30$ 3KEEP GOING ON ETC. 

2594 017652 004737 017274 50$: JSR PC .KTOFF : DISAB ABLE KT. 

2595 br 7eee 000207 55$: RTS PC 





- 
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FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN SEQ 0099 


2596 
2597 





| 
¢ 
| 
| 
| 
| 
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MPMEM = COMPARE MEMORY TO BACKGROUND PATTERN SEQ 0100 
2599 .SBTTL CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 
3¢ 
2601 : COMPARE MEMORY WITH A BACKGROUND PATTERN 
260 : INPUTS 
2604 ; 
2605 ; RO = BACKGROUND PATTERN 
2606 : FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
3607 : KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
2609 : OUTPUTS: 
2610 3 
2611 ; CARRY = SET IF NO ERROR 
3612 ; CARRY = CLR IF ERROR 
2614 : IMPLICIT OUTPUTS: 
2616 ; ERRHI = ERROR HIGH ADDRESS 
2617 3 ERRLO - ERROR LOW ADDRESS 
2618 ; EXPD = EXPECTED DATA 
2619 ; RECV = RECEIVED DATA 
2621 017660 CMPMEM 
2622 017660 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
2623 017664 010003 MOV 0.R3 ;COPY TEST PATTERN 
2624 017666 004737 017274 JSR PC .KTOFF 
2625 017672 013701 003124 MOV FREE,R1 iGET FIRST FREE LOCATION 
25626 017676 013702 003126 MOV FRESIZ, R2 TSIZE OF FREE SPACE BELOW 28K. 
2627 017702 020311 10$: CMP R3, (RI ZFREE SPACE LOCATION EQUAL TO EXPD? 
2628 017704 00141 BEQ 15 F YES 
2629 017706 010137 002240 MOV R1,ERRLO :SAVE ADDRESS IN ERROR 
2630 017712 005 002236 CLR ERRHI :NO HIGH ADDRESS 
2631 017716 010337 002232 MOV R3,EXPD + SAVE EXPD FOR ERROR REPORT 
017722 0111 2234 MOV (Ri) ,RECV 3 SAVE RECV FOR ERROR REPORT 
2633 017726 BR 50$ 
2634 017730 005721 15$: TST (R1)+ [POINT TO NEXT ADDRESS 
635 017732 00530. DEC R2 [DONE ALL MEMORY IN FREE SPACE? 
636 017734 00336. BGT 10$ :BR IF NO 
2637 017736 005737 003132 TST KTFLG : GOT KT? 
2638 017742 001472 BEQ 55$ : NO. GET OUT. 
2639 017744 004737 017256 JSR PC ,KTON : YES. ENABLE KT. 
2640 017750 005000 CLR RO [HIGH ORDER ADDRESS START 
2641 017752 013701 003152 MOV PST32w,R1 [GET >28K START ADDRESS (IN 32W BLOCKS) 
642 000006 .REPT 6 
264 ROL R1 ZCONVERT BLOCKS TO WORDS 
2644 ROL RO [MAKE IT DOUBLE PRECISION 
2645 ~ENDR 
2646 0 042701 000177 BIC #177,R1 ZA 4K- BOUNDAR 
2647 020012 010046 MOV RO,-(SP) sive HIGH ORDER 
2648 020014 010146 MOV R1.-(SP) + SAV Low ORDER 
2649 020016 004737 017316 JSR PC; SETMAP TSETUP PAR6 MAPPING REGISTER 
2650 020022 010004 MOV *R4 [COPY ADDRESS BIASED TO PAR6 
2651 020024 012601 MOV (SP)+,R1 TRESTORE LOW ORDER IN NON PAR6 FORMAT 
2652 020026 012600 MOV (SP) RO RESTORE HIGH ORDER IN NON PARG FORMAT 
2653 020030 020314 30$: CMP 3, (R4) ;ABOVE 28K LOCATION EQUAL EXPD 
2654 020032 001411 BEQ YES 
2655 020034 010037 002236 MOV RO, ERRHI + SAVE HIGH ORDER IN ERROR 















TSvV3 = — AREAS 
CMPMEM OMPARE MEMORY TO BACKGROUND PATTERN 


656 020040 010137 009939 
657 020044 010337 
2658 020050 011437 002234 
2659 020054 000421 
so 020056 5 T4'9 000002 32$: 
2662 020064 062704 000002 

160000 

020000 

$iee 000200 172354 

2667 020110 023737 172354 003132 


2669 020120 004737 017274 50$: 


0 
2672 020130 004737 017274 55$: 
2674 020136 
2675 
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R1,ERRLO ;SAVE LOW ORDER IN ERROR “7 
SSAVE EXPD FOR ERROR REPORT 

(RG) ,RECV ; SAVE RECV FOR ERROR REPORT 

#2,R1 “UPDATE NON PAR ADDRESS 

RO [MAKE IT DOUBLE PRECISION ADD 

#2,R4 SUPDATE PAR FORMAT ADDRESS 

R4 #160000 END OF PA R6 MAPPING AREA? 


#20000,R4 ;BACKUP_INTO PAR6 MAPPING BEGIN 
#200, a#KIPAR6 ;POINT TO NEXT 5 fk BLOCK >28k. 
@AKIPARG,KTFLG E ND e MEMORY? 


PC ,KTOFF STURN OFF MEMORY MAPPING 
oes ‘SET FAILURE 
PC ,KTOFF STURN OFF MEMORY MAPPING 
- 'SET SUCCESS 


SEQ 0101 


— a 















REGSAV 


020140 


020172 


TSV3_ = GLOBAL AREAS 
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= SAVE R1-R5 ON STACK 


000012 


TROUT INE 


~-SBTTL REGSAV 


SEQ 0102 
= SAVE R1-R5 ON STACK 


TO 
3 SAVE R1 THROUGH RS ON THE STACK 
CALLING SEQUENCE : 


JSR 


RS ,REGSAV 


STHIS IS A COOROUTINE WHICH ae CONTROL BACK TO 


; THE ae ROUTINE. AT THE END 


THE R 
:REGIST 


OF THE CALLING ROUTINE, 


ee Eas RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
;CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 





R4, nee) 


(SP)+,R4 
(SP)+,R5 
PC 








27 

at 020174 
2733 020174 
2734 aso 


2735 020220 


2736 020222 
2737 020226 
2738 


2 
2743 020230 
2744 020232 
2745 


TSV3_= GLOBAL AREAS 
GETPAT 


104443 
000406 
020230 
000022 
020232 
000377 
000000 
000377 
103367 


013700 
000207 


000000 
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= GET 8 BIT PATTERN nt OPERATOR 


020230 





SEQ 0103 


, -SBTTL GETPAT = GET 8 BIT PATTERN FROM OPERATOR 


{ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
; INPUTS: 

3 NONE. 

;OUTPUTS: 

; RO OCTAL NUMBER FROM THE OPERATOR 

;CALLING SEQUENCE: 


JSR PC ,,GETPAT 


WORD TSLOLIM 
WORD TSHILIM 
10000$: 


BNCOMPLE TE 1$ 
BCC 1$ 

MOV PATDAT RO 
RTS PC 


GETPAT:: 

SAVREG SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT 0.377, 0,377, 

TRAP C$GMAN- 

R 10000$ 

.WORD PATDAT 

“WORD  TS$CODE 

-WORD DATASC 

<WORD 377 


sRETRY IF ERROR 

DATA PATTERN FROM OPERATOR 
RETURN TO CALLER 
3+ 
LOCAL DATA AREA 


PATDAT: 
DATASC: 


0 sTEMPORARY STORAGE FOR DATA 
"ENTER DATA PATTERN 





- WORD 
-ASC1Z 
-EVEN 
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GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE SEQ 0104 
2747 .SBTTL GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 
3% 
2749 3 
2750 ;ROUTINE TO ISSUE A MENU AND GET 
o73} :THE OPERATOR'S RESPONSE. 
2753 ; INPUTS: 
2754 : 
2755 : RO ADDRESS OF ASCIZ STRING OF MENU 
3756 ; R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
2758 ; OUTPUTS: 
3760 : RO NUMBER OF THE OPERATOR'S SELECTION 
2762 3= 
2763 
2764 020256 GETSEL:: 
2765 020256 SAVREG i SAVE GENERAL REGISTERS 
2766 020262 010002 MOV RQ. R2 AVE THE MENU ADDRESS 
2767 020264 010203 1$: MOV R3 STAR ART OF MENU STRING 
2768 020266 005713 2s: TST Regt TEND OF ASCII ? 
2769 020270 001412 BEQ 34 ZBRANCH IF ALL LINES DISPLAYED 
2770 020272 PRINTF #SELASC,(R3)* DISPLAY THE MENU 
020272 012346 MOV (R3)+,=(SP) 
020274 012746 020442 MOV #SELASC,-(SP) 
020300 012746 000002 MOV #2,-(SP) 
020304 010600 MOV SP,R 
020306 104417 TRAP _—- CSPNTF 
020310 062706 000006 ADD #6,SP 
2771 020314 000764 BR 2$ 
2772 020316 3$: GMANID MENASC,MENRES,D,-1,0,-1,NO 
020316 104443 TRAP — C$GMAN 
020320 000406 10001$ 
020322 020476 WORD NRES 
020324 00004 “WORD TS$CODE 
020326 02044 “WORD MENASC 
020330 177777 ;WORD = 
020332 000000 “WORD  T$LOLIM 
020334 177777 “WORD TSHILIM 
020336 10001$: 
2773 020336 BNCOMPLETE 1$ ZRETRY IF ERROR 
020336 103352 BCC 
2774 020340 013700 020476 MOV MENRES RO :GET THE OPERATOR'S REPLY 
2775 020344 020001 CMP RO,R1 ZCOMPARE TO MAXIMUM ALLOWED 
2776 020346 101411 BLOS 5$ TBRANCH IF OK 
2777 020350 ; PRINTF #MENERR ‘DISPLAY ERROR MESSAGE 
020350 012746 020374 MOV #MENERR, (SP) 
020354 012746 000001 MOV #1,-(SP) 
020360 010600 MOV SP,RO 
020362 104417 TRAP  CS$PNTF 
020364 062706 000004 ADD #4,SP 
2778 020370 000735 BR 1$ RETR 
2779 020372 000207 : RTS PC RETURN TO CALLER 
2780 020374 045 116 045 MENERR: .ASCIZ *ZNZA *e* Menu Selection Too Large ***" 
2781 020442 045 116 O45 SELASC: -ASCIZ "INT" 


2782 020447 105 ‘Enter Menu Selection: ° 





ais 89 ies ee ee a 
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GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE SEQ 0105 


2783 -EVEN 
2784 020476 000000 MENRES: -WORD 0 












CHKMAN 


07 

2808 020500 
809 020500 
2810 020504 

020504 
2811 020506 
2812 020510 

020510 


020524 
2813 020530 
2814 020532 
2815 
2816 020534 
2817 





TSV3 = GLOBAL AREAS 
= CHECK MANUAL INTERVENTION LEGALITY 


104450 
103411 


012746 
012746 
00 
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020534 
000001 
000004 


116 


045 


«SBTTL CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 


s+ 


ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


: INPUT: 
: NONE. 
OUTPUT: 
: CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
; 1 MANUAL INTERVENTION IS OK 
[SIDE EFFECTS: 
; A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
: NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
: ALLOWED. 
CHKMAN: : 
SAVREG :SAVE THE REGISTERS 
MANUAL [SEE IF MANUAL INTERVENTION OK 
TRAP CS$MANI 
BCOMPLETE 18 BRANCH IF ALLOWED 
PRINTF #NOMAN :PRINT THE WARNING MESSAGE 
MOV #NOMAN, = (SP) 
MOV #1,-(SP) 
MOV SP-RO 
TRAP _—CSPNTF 
ADD #4,SP 
CLC ZCLEAR CARRY FOR ERROR 
1$: RTS PC RETURN 
NOMAN: rot "ZNZA *** Manual Intervention not Allowed - Test Aborted ***' 
even 


| TSV3_= GLOBAL AREAS 


| ENVIRN = SETUP FREE DIAGNOSTIC SPACE 





06 1 
2824 020632 010037 
2825 020636 062737 
2826 020644 0 
2827 020650 1 
2828 020656 0 
2829 020662 1 
2830 020670 005302 
2831 asnere 001373 


012746 
012746 
010600 
104417 
062706 

000413 
2855 021024 005237 

000240 


012746 
012746 
00 


021 
2858 021052 000207 
2859 


9 
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-SBTTL ENVIRN = SETUP FREE DIAGNOSTIC SPACE 
; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


ENVIRN: MEMORY RO 
TRAP 


EM 

003124 MOV RO FREE 
000052 003124 ADD #2.FREE 
003126 MOV (RO) , FRESIZ 
000004 003126 SUB #4, FRESIZ 
002012 MOV LSUNIT,R2 
000007 003126 10S: sug #7, FRESIZ 

BNE 10$ 
003124 MOV FREE RO 
003126 ADD FRESIZ,RO 
000002 SUB #2, 

130 MOY RO. FREEHI 

177520 MOV #BDVPCR,R1 

MOV R1,R2 
000002 ADD #2.R 
016376 JSR PC. XNXM 

BCC 15$ 

BR 40$ 
177520 15$: MOV BDVPCR,R1 
000001 ADD #1,R1 
177520 MOV #BDVPCR,R2 

INC (R2) 
177520 MOV BDVPCR,R3 

CMP R1,R3 

BNE 208 
003144 INC T23A 
170000 002120 BIC #170000, LSHIME 

PRINTF 4#M8186 
005554 MOV #8186 ,-(SP) 
000001 MOV #1,-(SP) 

MOV SP.RO 

TRAP — CSPNTF 
000004 ADD #4,SP 

BR 40$ 
003146 208: INC 1238 

PRINTF #8189 
005645 MOV #8189, -(SP) 
000001 MOV #1,-(SP 

MOV SP.RO 

TRAP ~ CSPNTF 
000004 ADD #4,SP 

40$: RTS PC 


: GET 1ST FREE ADDRESS... 
3.eAND WORD COUNT. 


; GET NUMBER_OF UNITS 
; TAKE AWAY 7 WORDS PER UNIT 


GET FIRST FREE ADDRESS 
POINT TO LAST FREE ADDRESS 
UP 1 WORD 


:BACK R 
STORE LAST FREE ADDRESS 


SARAAAAAAAAAARAERARAREREARREREREREREEERRERERE 


3GET ae ADDRESS 


: SUPERVISOR COULD BE WRONG 
BR 40$ FOR RELEASE 
‘TELL THE OSYSTEM TYPE 


zRETURN 
SET Le Ay 

40$ FOR RELEASE 
TELL THE OSYSTER TYPE 


7RETURN 


SEQ 0107 


~— 


‘epee 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


| 
| 
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KTINIT 


2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 021054 
2869 021054 
2870 021060 
2871 021064 
2872 021072 
2873 021074 
2874 021100 
2875 021106 
2876 021112 
2877 021114 
2878 021122 
2879 021130 
2880 021134 
2881 021136 
2882 021142 
2883 021150 
2884 021152 
2885 021156 
2886 021162 
2887 021164 
21170 
21172 


0 
2891 021176 
2893 021200 
2894 
2895 021204 
2896 





012716 
000002 


010037 
000207 


E os 
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tat 


000004 
021172 
177572 
002120 
000177 
000004 
172340 
077406 


000200 
002000 
177600 
021200 


000004 


001577 


000004 


003132 
003132 


177740 





.SBTTL KTINIT 
[ROUTINE TO INIT KT=11 


KTINIT: 
CLR KTFLG 
CLR KTENABLE 
CMP LSHIME ,#1577 
BLOS 6 9$ 
MOV Q#ERRVEC,RO 
MOV #28 a#ERRVEC 
TST SRO 
NOP 
MOV LSHIME ,KTFLG 
BIC #177, KTFLG 
MOV RO, @#ERRVEC 
CLR RO 
MOV ARO,R1 
1$: MOV + 760G =40(R1) 
MOV RO, (R15¢ 
ADD #260,R0 
CMP RO,#2000 
BNE 1 
MOV #177600,-(R1) 
BR 9$ 
2s: MOV #6$, (SP) 
RTI 
6$: MOV RO, a#ERRVEC 
9$: RTS PC 


SEQ 0108 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


; INIT >28k aiex fe ~~ 
; pn RL >28K F 


i. NOUGH MEMORY fo28K)? 
SAVE OLD vie pra PTR. 


; A ERR 
Jags 


AP _IF NO). 
; YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 
RO = AR DATA. 


R1 = KI REGS PTR. 

SET olka ana REG. 
SET KIPAR REG. 

BUMP AR ~~ BY ‘4K’. 

a “1/0 


ves. SET KTPAR7 FOR 1/0. 


SET UP RETURN 
RTI TO NEXT LOCATION 


; RESTORE OLD ERR VEC PTR. 


Ba eS, Ske ag & Ne Seed 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0109 
2898 : 
$e. : SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
$30) : Requires that SOFINIT and WRICHR have been done previous to call. 
2903 3 
2904 ; INPUTS: 
2905 3 RS CURRENT UNIT NUMBER 
2906 ;OUTPUTS: 
2907 : The Extended Features Switch is set. 
2908 ; 
2909 ‘= 
2910 
soi} 021206 INVERT: : 
2913 021206 005737 002226 TST EXTFEA 3: IS SWITCH SET? 
2914 021212 001020 BNE 1$ 3 ves EXIT Big Ba hanes the next one outa town!) 
2915 021214 012737 100206 021260 MOV #100206, CMDPKT 3; WRT SUB-S A 
2916 021222 012737 021270 021262 MOV MUSMBK , CMDPKT+2 Fi MSG BUF A 
2917 021230 012737 O 021266 MOV #6, CMDPKT+6 ; BYTE COUNT 
2918 021236 012737 100010 021270 MOV #100010, WwSMBK + INVERT THE SWITCH 
2919 021244 012704 021260 MOV #CMDPKT ,R4 ; SET CMDPKT INTO R4 
2920 021250 004737 010662 JSR PC ,WRTCHR 3; DO IT 
2921 021254 000207 1$: RTS PC : RETURN 
2922 : 
2923 ' 
$o5e : 3 COMMAND PACKET. 
Sose ~ 021260 . = <.+3>8177774 MUST BE ON MOD 4 BOUNDRY. 
2928 021260 000000 CMDPKT:: 0 31ST WORD IS TSOS COMMAND. 
000000 a 2N ND WORD IS THE BUFFER LOW ADDRESS. 
0 + 3RD WORD IS THE BUFFER HIGH aDDRESS. 
0 :4T H WORD IS THE BYTE/RECORD/FILE COUNT. 


WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 


7: 0 31ST WORD:: SEL 0 
0 s2ND WORD:: SEL 2 
0 35RD WORD:: SEL 4 
EVEN 





| 6 9 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0110 


294 3 
3348 ; SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
2945 ; 
2946 ; INPUTS 
2947 sOUTPUTS: 
2948 : The NXMFLG is set if we can test. 
$308 : The NXMLO and NXMHI addresses are setup. 
2951 
295e 021276 MEMCK 
2954 021276 SAVREG :SAVE THE REGISTERS 
2955 021 005037 003136 CLR NXMFLG SCLEAR THE FLAG 
2956 021306 005037 003140 CLR NXMLO = CLEAR THE TEST ADDRESS LO 
2957 021312 005037 003142 CLR NXMHI ZCLEAR THE TEST ADDRESS HI 
2958 021316 005737 003146 TST 1238 tIS IT A 11/238? 
2959 021322 001407 BEQ 1$ NO 
021324 023727 002120 007777 CMP LSHIME ,#7777 : GREATER THAN 128K 
1 021332 103406 BLO 2 : 
2962 021334 004737 021452 JSR PC .NXMTST SSETUP THE ADDRESS 
2963 021340 000427 BR 13$ ‘SET THE FLAG AND EXIT 
2964 021342 005737 003144 1$: TST T23A SIS IT A 11/23A? 
2965 021346 001413 BEQ 4$ ‘NO 
2966 021350 023727 002120 005777 28: CMP LSHIME ,#5777 GREATER HAN 96K 
2967 021356 101023 BHI YES, e3A/30. WITH 128k ME 
2968 021 023727 002120 003777 CMP LSHIME ,#3777 :GREATE HAN 64K BUT Less T THAN 92k? 
021 103403 BLO 4$ :NO, Eck HK 
2970 021370 004737 021452 JSR PC .NXMTST TSETUP THE ADDRESS 
1 021374 000411 BR ZSET THE FLAG AND EXIT 
$335 021376 023727 002120 001577 4$ CMP LSHIME, #1577 [GREATER THAN 24K BUT LESS THAN 64K? 
021404 103410 BLO 14$ =NO, TELL THEM AND EXIT WITH FLAG CLEAR 
021406 004737 021452 JSR PC .NXMTST SETUP THE A DRESS 
2975 021412 062737 000077 003142 ADD #77 ,NXMHI FOOL THE 11/02 & yi/03 
76 021420 005237 003136 13$: INC NXMFLG [SET THE F 
2977 021424 000411 15$ : 
2978 021426 000410 14$: 5$ NOP RINTOU 
021430 PRINTF #NOMEM STELL THERE EXIT COND PRINToxeee 
021430 012746 005460 V #NOMEM, = (SP) 
21434 012746 000001 MOV #1,-(SP) 
021440 010600 SP,RO 
021442 104417 TRAP CSPNTF 
021444 062706 000004 ADD #4, 
2980 021450 000207 15$: RTS PC RETURN 
2982 
2983 Ft 
2984 ; SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
2986 OUTPUTS :NXMLO,NXMHI :SETUP WITH NXM ADDRESS 
2990 021452 013701 002120 NXMTST: MOV LSHIME,R1 :GET TOP OF MEMORY 
2991 021456 062701 000200 ADD #200,R1 [MAKE IT 1/0 BLOCK OR OTHER NXM 
2992 021462 042701 000177 BIC #177.R1 
2993 021466 010102 MOV R1,R2 ;RESAVE RESULTS 
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| KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0111 
2994 060006 REPT 6 
3444 ~om R1 :PUT IN PLACE FOR XFER 
2997 021504 010137 003140 MOV R1,NXMLO zSAVE TEST ADDRESS LOW 
2998 000012 eREPT 10. 
2999 ASR R2 zPUT IN PLACE FOR XFER 
3000 -ENDR 
3001 021534 042702 177700 BIC #177700,R2 3DON'T WANT ILA! 
3002 021540 td 003142 MOV R2,NXMHI : SAVE nid ADDRESS HIGH 
3003 021544 000207 RTS PC sRETUR 
3004 
3005 
3006 
3007 


3008 021546 ENDMOD 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 


-TITLE TSV4 = MISCELLANEOUS SECTIONS 


021546 BGNMOD TSV4 
021546 TSV4:: 


Co OO~w 


1 
1 


SEQ 0112 
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PROTECTION TABLE 


18 -SBTTL_ PROTECTION TABLE 
19 021546 BGNPROT 
LSPROT:: 


021546 $8 
20 021546 177777 177777 177777 «WORD <-1, <1, =-1, -1 
$3 021556 ENDPROT 


ee __———- 


NO DEVICE PROTECTION REQUIRED. 


SEQ 0113 


— os 


k 9 
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INITIALIZE SECTION SEQ 0114 
24 .SBTTL INITIALIZE SECTION 
26 
27 2 THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
38 3AT THE BEGINNING OF EACH PASS. 
30 F ‘START’ OR “RESTART, SET QUICK=PASS FLAG AND BUS-INIT. 
31 IF ‘CONTINUE’, NOTHING IS REQUIRED. 
34 3+ 
3 [INSERT TEMPORARY JUMP TO ODT 
37 021556 BGNINIT 
021556 LSINIT:: 
38 021556 005037 002226 40$: CLR EXTFEA 
39 021562 005037 003136 CLR NXMFLG 
40 021566 012737 006560 002200 MOV #EPRT1,EPRTSW :SET UP PRIMARY MESSAGE FOR REPLACEMENT 
41 021574 005037 00315 CLR SIFLAG SCLEAR “SOFT INIT’ AG 
42 021600 005037 003136 CLR KTENABLE 'CLEAR TEST ABOVE 28K 
021604 005037 002302 CLR RAMS1Z SCLEAR RAM SIZE FOR RAMERR ROUTINE 
44 021610 READEF wer. CONTINUE 
021610 012700 000036 F CONTINUE, RO 
021614 104447 4 
45 021616 BNCOMPLETE § 
021616 103023 BCC 1$ 
46 021620 023737 002202 002012 CMP UNITN, LSUNIT ZUNIT IN RANGE? 
47 021626 103070 BHIS 4$ : . 
48 021630 005737 003112 TST DUFLG [DROPPED UNIT? 
0216 00472 BMI NXTU [BR IF YES 
50 021636 013701 002202 MOV UNITN,R1 
51 021642 30 ASL 1 
021 005761 003176 TST ERTABL(R1) 
53 021650 00151 BEQ SETU 
54 021652 032761 040000 003176 BIT #81714, ERTABL(R1) : DROPPED? 
021 1 BNE NXTU 
56 021662 EXIT INIT :DO NOTHING IF ‘CONTINUE’. 
021 104432 TRAP  C$EXIT 
021 16 .WORD 110030-. 
57 021666 1$: READEF #EF .NEW 
021666 012700 000035 V EF .NEW,RO 
021672 104447 TRAP EFG 
58 021674 BNCOMPLETE NXTU ;TAKE NEXT UNIT IF NOT NEW PASS. 
021674 103052 BCC 
59 021676 READEF WEF START 
021676 012700 000040 MOV #EF .START,RO 
021702 104447 TRAP _—C$REFG 
60 021704 BCOMPLETE 2$ 
021704 103404 
61 021706 READEF #EF .RESTART 
0217 012700 000037 MOV #EF .RESTART,RO 
021712 104447 C 
62 021714 BNCOMPLEE 1$ 
021714 103031 BCC 31$ 
63 021716 2s: z1ST PASS, BUS-INIT... 
021716 BRESET [BUS RESET. 
021716 104433 TRAP C$RESET 
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INITIALIZE SECTION SEQ 0115 
65 021720 005037 002214 CLR TSTCNT :NUMBER OF TESTS. RUN IN PASS 
66 021724 005037 002222 CLR FATFLG [CLEAR FATAL ERROR COUNT 
67 021730 005037 002144 CLR T23A SCLEAR 11/23A FLAG 
68 021734 005037 003146 CLR 1238 SCLEAR 11/238 FLAG 
69 ; MOV #340,=(SP) 
eo : MOV #20$.-(SP) RETURN TO DEBUGGER 

: JMP 0.0DT s:@@ENTER THE DEBUGGER 

re 021740 005037 003400 - CLR SKIPT SCLEAR THE SUBTEST ‘SKIPPER"’ 

74 021744 012737 177777 002204 MOV #-1,QVP i 22 QUICK VERIFY... 

75 021752 004737 020630 JSR PC, ENVIRN SET ENVIRONMENT. 

76 021756 004737 021054 JSR PC-KTINIT SINITIALIZE KT MEMORY MANAGEMENT 

77 021762 012700 003176 MOV wen TABL RO 

78 021766 005020 30$: CLR (RO)+ ICLEAR THE ERROR TABLE 

79 021770 020027 003376 CMP RO, MERTABE 

80 021774 103774 BLO 30$ 

81 021776 000404 BR 4$ 

82 022000 005037 002204 31$: CLR ave 

2 022004 000137 022054 JMP PASRPT :GO REPORT THE STATUS 

85 022010 4$: 

86 022010 012737 177777 002202 NEWPAS: MOV #=1,UNITN SINIT | UNIT NUMBER. 

87 022016 005037 002220 CLR DEVCENT [CLEAR COUNT OF DEVICES RUNNING 

88 022022 NXTU: BREAK 
022022 104422 TRAP — C$BRK 

89 022024 005237 002202 INC UNITN t..eAND SET NEXT UNIT NUMBER. 

90 022030 023737 002202 002012 CMP UNITN,LSUNIT 

91 022036 103423 BLO SET 

92 022040 012737 177777 003112 MOV #-1,DUFLG 

93 022046 000401 BR 11$ 

94 022050 DOCLN :ABORT, NO MORE UNITS. 
022050 104444 TRAP _—C$DCLN 

95 022052 000240 11$: NOP 

96 022054 PASRPT: 

97 022054 023727 002012 000001 CMP LSUNIT,#1 ;HOW MANY UNITS SELECTED? 

98 022062 101752 BLOS  NEWPAS BR IF 

99 022064 005737 002220 TST DEVCNT TARE ANY STILL RUNNING? 

100 022070 001747 BEQ NEWPAS ‘BR IF NO 

101 022072 RFLAGS RO 
022072 104421 CSRFLA 

102 022074 032700 000100 BIT #1SR,RO :SHOULD WE PRINT STATISTICS 

103 0 22100 001343 BNE NEWPAS BR IF NO 

105 022102 DORPT 
022102 104424 TRAP — CSDRPT 

106 022104 000741 BR NEWPAS 

107 022106 10S: 

109 022106 SETU: GPHARD UNITN,RO :GET UNIT N P=TABLE POINTER. 
022106 013700 002202 MOV UNITN.RO 
022112 104442 TRAP — C$GPHRD 

110 022114 BNCOMPLETE NXTU :BR IF UNIT NOT AVAILABLE. 
022114 103342 BCC NXTU 

111 022116 005037 003112 CLR DUFLG ICLEAR “DROPPED’’ FLAG. 

112 022122 005237 002220 INC DEVCNT 

113 022126 012001 MOV (RO) +,R1 :GET 1ST REGISTER ADDRESS. 

114 022130 010137 002206 MOV R1, CSRADDR SADDRESS OF REGISTERS OF UNIT UNDER TEST 
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—z 
Nie 


INITIAL SEQ 0116 
115 
116 022134 012001 MOV (RO) +,R1 :GET VECTOR ADDRESS. 
117 sMOV —s- (RO) ,R2 ‘GET INTERRUPT PRIORITY 
118 *MOV —sR2, IPRI ‘SET INTERRUPT PRIORITY 
119 022136 010137 002210 MOV R1,1VEC [SET INTERRUPT VECTOR POINTER... 
120 022142 012721 016216 MOV #INTR, (RI) te. VECTOR.. 
121 022146 013721 002212 MOV IPRI,(R1)+ +..AND PRIORITY. 
138 022152 1$: 
124 : TST avp z1ST PASS ? 
i? : BEQ 5$ :NO, SKIP tHE PASS 1 STUFF. 
127 
128 t1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
34 ; THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
131 022152 013701 002202 MOV UNITN,R1 
132 022156 006301 ASL R 
133 022160 052761 100000 003176 BIS #81715, ERTABL(R1) zSAY DEVICE RUNNING 
134 022166 005037 005772 CLR EXTA SCLEAR ERROR EXTENSION FLAG. 
133 022172 023727 002012 000001 CMP LSUNIT,#1 TARE WE TESTING MULTIPLE UNITS? 
136 022200 101416 BLOS  10$ ‘BR IF NO. 
137 022202 RFLAGS RO ZYES == GET OPERATOR FLAGS. 
022202 104421 TRAP = C$RFLA 
138 022204 052700 001000 BIT #PNT,RO :SHOULD WE PRINT UNIT #? 
139 022210 001412 BEQ 10$ ‘BR IF NOT. 
140 022212 PRINTF #PUNIT,UNITN SPRINT THE UNIT # 
022212 013746 002202 MOV UNITN,=(SP) 
022216 012746 022304 MOV #PUNIT,=(SP) 
022222 012746 000002 MOV #2,-(SP) 
022226 010600 MOV SP,RO 
022230 104417 TRAP _— CSPNTF 
022232 062 000006 ADD #6,SP 
141 022236 10S: 
142 022236 005037 003114 CLR NODEV 
143 022242 013701 002206 MOV CSRADDR,R1 ZADDRESS OF FIRST REGISTER 
144 022246 010102 MOV R1,R2 ZSTART OF REGISTERS 
145 022250 062702 000002 ADD #TSSR,R2 ZADDRESS OF TSSR REGISTER 
146 022254 004737 016376 JSR PC,XNXM ZTEST BOTH CONTROLLER REGISTERS... 
147 022260 103005 BCC 2$ .-AND BR IF ALL OK. 
148 022262 010137 003114 MOV R1,NODEV tFLAG DEVICE AS NON-EXISTENT 
149 022266 012737 177777 003112 MOV #-1,DUFLG :DROP THIS UNIT. 
130 022274 2s: 
15¢ ZFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
154 022274 S$: SETPRI #PRIOO ZENABLE INTERRUPTS. 
022274 012700 000000 MOV #PRI00,RO 
022300 104441 TRAP _— C$SPRI 
155 022302 ENDINIT 
022302 L10030: 
022302 104411 TRAP  C$INIT 


156 
Ht 4 022304 045 116 045 PUNIT: petis /ENZNZAttee® TESTING UNIT 2D2%A teeee/ 
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ADD AND DROP UNITS SECTIONS SEQ 0117 


160 .SBTTL ADD AND DROP UNITS SECTIONS 
162 3+ 
163 : THE ADD=-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
164 : TO BE (A) ADDED TO THE TEST LIST FOR THE F 
165 : OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
167 022352 BGNAU 

022352 LSAU:: 
168 022352 010001 MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
169 022354 006301 ASL R1 > MAKE IT A WORD INDEX 
170 022356 052761 100000 003176 BIS #100000, ERTABL (R1) : SET THE "ACTIVE BIT 
171 022364 042761 040000 003176 BIC #40000, ERTABL(R1) : CLEAR THE "DROPPED’’ BIT 
172 022372 PRINTF #1$,RO. 

022372 010046 MOV RO,-(SP) 

022374 012746 022420 MOV #1$,-(SP) 

022400 012746 000002 MOV #2,-(SP) 

022404 010600 MOV SP,RO 

022406 104417 TRAP  CS$PNTF 

022410 062706 000006 ADD #6,SP 
173 022414 EXIT AU 

022414 000167 WORD 

022416 000026 , “WORD L10031-2-. 
174 022420 045 116 045 i$: eASCIZ /2ZNZA UNIT 2%DZA ADDED/ 
175 EVEN 
177 022446 ENDAU 3; UNUSED. 

022446 L10031: 
Soe 022446 104452 TRAP — C$AU 

j++ 

179 3; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
180 + TO BE REMOVED FROM THE TEST LIST. 
182 3; SUPVSR DOES THE ‘DROPPING’. THIS IS JUST TO, TELL THE MAN. 
183 ; DROPPED’ UNITS ARE RE-SELECTED ON OPERATOR ‘‘STA’ OR “‘ADD’’ 
184 ; COMMAND, OTHERWISE REMAIN INACTIVE. THE ‘DISPLAY'’ COMMAND 
185 3 WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
186 : WHICH ARE STILL ACTIVE. 
44 ; UPON ENTRY, Roe CONTAINS THE UNIT TO BE DROPPED. 
189 022450 BGNDU 

022450 L$DU:: 
190 022450 012737 177777 003112 MOV #-1,DUFLG 
191 022456 010001 MOV RO,R1 
192 022460 006301 ASL R1 
193 022462 052761 140000 003176 BIS #140000, ERTABL(R1) : SAY DROPPED 
194 022470 000240 000240 000240 240,240,240 t 22222222? 
195 022476 PRINTF #1$,RO 

022476 010046 MOV RO,-(SP) 

022500 012746 022524 MOV #18, -(SP) 

022504 012746 000002 MOV #2,-(SP) 

022510 010600 MOV SP-RO 

022512 104417 TRAP _— CSPNTF 

022514 062706 000006 ADD 4#6,SP 
196 022520 EXIT DU 


022520 000167 -WORD JS$JMP 
022522 000030 eWORD 110032-2-. 





197 022524 

198 

199 022554 
022554 
022554 


045 


104453 


TSV4 = MISCELLANEOUS SECTIONS 
ADD AND DROP UNITS SECTIONS 


116 


000372 
002116 
177772 
177756 


017202 








045 18: 


L10032: 


LSAUTO:: 


10$: 


20$: 





10 
MACRO M1113 25-MAY=82 09:19 PAGE 74-1 


/ENZA_ UNIT ZD%A DROPPED/ 


ASCI2 
“EVEN 
ENDDU 
, TRAP — C$DU 

5? 

: AUTO=DROP CODE SECTION. 
BGNAUTO 
MOV CSRADDR,RS 
MOV #360. ,R3 
JSR PC ,WAITE 
BCS 0$ 
DELAY 250. 
MOV #250. ,(PC)+ 
. WORD 
MOV LSDLY, (PC)+ 
WORD 
DEC -6(PC) 
BNE 4 
DEC =22(PC) 
BNE .-20 
DEC 
BNE 10$ 
JSR PC, CKDROP 
ENDAUTO 


L10033: 


TRAP 


CSAUTO 


sPOINT TO DEVICE REGISTER 

ENOUGH TIME FOR 2400° REEL TO REWIND 
;WAIT FOR SSR TO SET 

LEAVE WHEN SSR IS SET 

sWAIT FOR .25 SECONDS 


BUMP COUNTER DOWN 


KEEP GOING 


z TRY AND DROP UNIT 


3 UNUSED. 


SEQ 0118 


A 


TSV4 = 





nm 
_ 
w 


rorororonory 
NT ee 
-—C Oana 


Nm 
Nm 
~m 
oo 
mr 
mn 
os 


636 
223 022636 
224 022642 
225 022646 
226 


227 

228 022650 

229 022656 

230 022662 

231 022662 
022662 
022662 


250 022764 
251 022766 
252 022772 
253 022774 
022774 
022776 


013705 
005737 
100405 
012765 
004737 


104412 


012746 


010346 
012746 


MISCELLANEOUS SECTIONS 
LEAN-UP AND REPORT CODING SECTI 


000000 
016250 


023126 
000001 
000004 


003176 


040000 
170000 


023163 
000003 


000010 
160000 


023233 
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ONS 


000002 


~SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


p++ 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
: EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

: ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCL 
LSCLEAN: : 
MOV CSRADDR,RS sPOINT TO DEVICE REGISTER 
TST DUFLG z'DROPPED'’ FLAG IS SET 
BMI 1$ z...AND GROSS CONTROLLER FAULT... 


z--eDON'T TRY TO XCT CLEANUP CODE. 


MOV #0, TSSR(RS) :D0 SOFT INIT 


JSR PC ,WAITF 
ENDCLN 
TRAP CSCLEAN 


p++ 
; THE REPORT CODING SECTION CONTAINS THE 
: ‘PRINTS'* CALLS THAT GENERATE STATISTICAL REPORTS. 


BGNRPT 


1$: 
2$: 
L10034: 


LSRPT:: 
PRINTS #DEVSUM 
#DEVSUM,-(SP) 
mov #1,-(SP) 
MOV SP. 
TRAP — C$PNTS 
ADD #4,S 
MOV R2,-(SP) 
MOV R3.~(SP) 
MOV R4.=(SP) 
MOV #ERTABL RG : GET START OF ERROR TABLE. 
CLR 3 : CLEAR UNIT NUMBER 
1$: MOV (R4) ,R2 3 GET ERROR TABLE ENTRY & TEST IT. 
BEd “$ : ZERO IF UNIT NOT RUN 
BIT #B1T14,R2 z WAS UNIT DROPPED? 
BNE : BR IF YES 
BIC #°(7777, 8, : GET ERROR COUNT FIELD 
PRINTS #DEVONL R3,R2 ; PRINT 
MOV R2, 
MOV R3, (sp 
MOV #DEVONL ,~(SP) 
MOV #3,-(SP) 
MOV SP,RO 
TRAP _— CS$PNTS 
ADD #10, SP 
2s: CMP R2,#160000 : WAS UNIT NON-EXISTENT? 
$ : BR IF NO 


BNE 

PRINTS #DEVNXR,R3 
MOV R3,- 

MOV #DEVNXR,=(SP) 


SEQ 0119 


-——— 
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CLEAN-UP AND 


| 
j 
023002 


275 023376 
276 


277 
278 023446 
279 
280 





gs 
Nm 
oO 
™m 
—hW 
uNnN— 


i -i-1-1—) 
—b st a 
NmwNO 
NN 
~~ 
AAO 


ES 
3= 


: 


AAO wS 


COoCCoO 
ad a a 
“N 
ae 
oa 


000002 


000006 
160001 


023315 
000002 


000006 
170000 


023376 
000003 


000010 
000002 
003376 


4s 
oooo=— 
a 


3$: 


30$: 


4$: 


L10035: 


DEVDRO: 


ENDRPT 
TRAP 


: .ASCIZ 
Zz 
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REPORT CODING SECTIONS 


#2,°(SP) 
P 


Re #160001 
pare 


3 WAS UNIT NOT READY AT STARTUP? 
; BR IF NO. 


#*°C7777 ,R2 
#DEVDRO,R3,R2 
2.~(SP) 


CS$RPT 


/ZNZADEVICE STATUS SUMMARY: 2N/ 

/%A UNIT Z03ZA ONLINE, ERRORS = 2D2N/ 

DROPPED, NON-EXISTENT REGISTERZN/ 
DROPPED, NOT READY AT STARTUPZN/ 


/%A UNIT %3D3%A DROPPED; ERRORS = %D%N/ 


SEQ 0120 


ae 





ES ee oe ee - 
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CLEAN-UP AND REPORT CODING SECTIONS SEQ 0121 


-TITLE TSVS = HARDWARE TESTS 










2 
S 
10 023446 BGNMOD TSV5 
023446 TSV5:: 


16 
raf 


—_—-— Ce 


| 
| 


F 10 
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‘TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS SEQ 0122 
$$ -SBTTL TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
3? 

$s 3; TEST DESCRIPTION: 

30 : This test verifies that a Hardware Initialize command 

31 : invoked after a Write Characteristics command sets up 

32 $ the Command, Message and Characteristic image blocks 

$2 : in the controller ram correctly. 

HH ; TEST STEPS: 

37 3 REPEAT FOR LOOPCNT 

38 $ BEGIN 

39 3 Do WRITE ouwens venzer ees command. 

40 3 If the NBA bit in the TSSR register is NOT=0 then Print Error. 

41 : Write to TSSR register to soft initialize the controller 

42 3 If controller RAM 310-377 NOT=0 then Print Error 

43 : END 

44 ;- 

45 

46 

47 street BGNTST " 

53 023446 012700 024102 MOV #TST13ID,RO a gt MESSAGE TO IDENTIFY TEST 

54 023452 004737 016510 JSR PC, TSTSETUP O INITIAL TEST SETUP 

55 023456 012737 000012 002216 MOV #10. ,LOOPCNT ‘PERFORM 10 ITERATIONS 

56 023464 T13LO00P: 

4 023464 004737 024356 JS PC, TI3REST sSET PACKET TO START-UP VALUES 

59 023470 012703 002764 MOV #TSTBLK+10. .R3 START OF TEST DATA 

60 023474 012704 024040 MOV #TISPACKET,R4 ‘en THE ADDRESS OF COMMAND PACKET 

6) OSsenc 012764 000010 000006 $$ MOV #8. ,PKBCNT(R4) ZSTART WITH MINIMUM ALLOWABLE VALUE 

63 023506 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

64 023512 103405 BCS 10$ :BR IF SOFT INIT OKAY 

65 023514 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
023516 ERRDF ERRNO, SFIERR,SFIMSG DEVICE FATAL DURING INIT 
023516 104455 RAP CSERDF 
023520 000144 -WORD 100 
023522 003652 eWORD SFIERR 
023524 012034 -WORD SFIMSG 

;Do WRITE CHARACTERISTICS command. 

69 023526 005037 002222 10$: CLR FATFLG ZCLEAR FATAL ERROR FLAG 

70 023532 010465 000000 MOV R4, TSDB(RS) ise THE PACKET ALDRESS TO EXECUTE 

71 023536 004737 016336 JSR PC,CHKTSSR WAIT FOR SSR TO SET 

72 023542 FORCERROR 12$ s@aDFORCE ERROR IF FORCER=1 

73 023556 103407 Bcs 15$ :BR IF CARRY SET (GOOD RETURN) 

74 023560 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
023562 NEXT. ERRNO 

76 02356 12$: ERRDF  ERRNO,T13SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
023 104455 TRAP RDF 
023564 000145 -WOR 
023566 024267 eWORD T13SSR 
023570 012046 -WORD PKTSSR 

77 023572 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

78 023576 15$: CKLOOP [LOOP ON ERROR, IF FLAG SET 
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015774 


000310 
000000 
016336 
000000 
016336 
000000 


002222 


INITIALIZE AFTER WRITE CHARACTERISTICS 


278: 


30$: 


MOV TSSR(RS) ,R1 
MOV #SSR ,R2 
BIT #OFL,R1 

25$ 
BIS #OFL ,R2 


TRAP 
sGET THE CONTENTS OF TSSR 
EXPECTED re OF 5 SSR 
21S ae tf ie a * ? 
ZBRANCH IF NO 


LINE 
2SET OFF-LINE. IN EXPECTED DATA 


NBA bit in the TSSR register is NOT=0 then Print Error. 


FORCERROR 278 
CMP R2,R1 

BEQ aroe® 
NEXT. 


RNO 
ERAHAD ERRNO, T13NBA,PKTSSR 


CKLOOP 


;DOES EXPECTED MATCH RECEIVED ? 


sOKAY IF 
NBA NOT ZERO 
TRAP 
- WORD 
«WORD 
«WORD 
LOOP ON ERROR ? 
TRAP 


igette to TSSR register to soft initialize the controller 
:WRITE TO TSSR TO SOFT INITIALIZE 


428: 


50S: 


62$: 


70$: 


JSR =" SOF INIT 
FORCERROR 42$ 


MOV onl 
NEXT.ERRNO- 
ERRDF ERRNO,SFIERR,SFIMSG 


If sentrot ter RAM 310-377 NOT=0 then Print Erro 
#310,R4 STAR 


CLR 

CLRB TSDB(RS) 

JSR PC, CHKTSSR 

MOV R4, TSDB(R5) 

JSR By 

MOVB TSBA(RS) ,R1 
62$,NOTSSR 


- ERRNO 
ERADE ERRNO, T13MEM,RAME XP 


INC FATFLG 
CKLOOP 


ESCAPE TST 


:BR IF SOFT INIT OKAY 
ZSAVE CONTENTS OF TSSR 


DEVICE FATAL DURING a | 


RAP 
- WORD 
- WORD 
- WORD 


ART WITH LOC 310 


; R 
READ LOC CONTENTS 


:@ad 
sCHECK MEMORY FOR 
BRANCH IF DATA OKAY 


sMEMORY NOT ZERO AFTER INIT 


TRAP 
-WORD 
«WORD 
- WORD 
SET THE FATAL ERROR FLAG 
TRAP © 
EXIT ON FATAL ERROR 
TRAP 
-WOR 


wr a ee ++ 


SEQ 0123 
CSCLP1 


CSERHRD 
102 


T13NBA 
PKTSSR 


CSCLP1 


CSERDF 
103 


SFIERR 
SF IMSG 


CSERDF 
104 
TI3MEM 
RAME XP 
CSCLP1 
CSESCAPE 
L100 


—- 
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TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS SEQ 0124 
119 
120 024000 82$: INC RG :LOOK AT NEXT RAM LOC. 
121 024002 020427 000400 CMP R4, #400 [AT TOP OF RAM ADDRESS SPACE 
1g 024006 BNE 608 ZBRANCH TILL ALL MEMORY TESTED 
124 
125 024010 005737 002222 TST FATFLG ZANY FATAL ERRORS ? 
126 024014 001402 BEQ 160$ ‘BRANCH T 
127 024016 004737 017202 JSR PC, CKDROP :TRY TO bROP THE UNIT 
128 024022 004737 016456 160$: JSR PC. TSTLOOP [DONE ALL ITERATIONS? 
129 024026 103002 BCC 165$ “BR IF Y 
130 024030 023464 JMP T13L00P [LOOP UNTIL ITERATION COUNT DONE 
131 024034 165$: 
132 024034 EXIT TST 


TRAP CSEXIT 
-WORD 110036-. 
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<u 


TS 
TE 


‘é 
| 
| 1: INITIALIZE AFTER WRITE CHARACTERISTICS SEO 0125 
| 136 3+ 
| it 34 sLOCAL STORAGE FOR THIS TEST 
139 ‘ 
| 143 024040 TI3PACKET: :COMMAND PACKET FOR Test 
| 144 024040 100004 .WORD 100004 [WRITE CHARACTERISTICS COMMAND, WITH ACK 
145 Og406e 024050 ~WORD T13DATA TADDRESS OF CHARACTERISTICS BLOCK 
| 146 024044 000000 WORD 0 
167 024046 000010 -WORD 8. ZSTARTING VALUE OF BLOCK SIZE 
149 024050 TI3DATA: s CHARACTERISTICS. DATA BLOCK 
150 024050 024062 .WORD 1138FR ZADDRESS OF MESSAGE BUFF 
151 024052 000000 WORD 0 
132 024054 000016 «WORD 14, sLENGTH OF MESSAGE BUFFER 
133 024056 000000 000000 -WORD 0,0 
155 024062 - T138FR: .BLKW 8. sMESSAGE BUFFER 
136 :LOCAL “Text MESSAGES FOR TEST 
158 
159 024102 111 156 151 TST131D: sASCIZ_ "Initialization After WRITE CHARACTERISTICS' 
ioe 024155 111 156 143 T13MEM: We "Incorrect RAM Data After Init‘ 
162 024214 127 122 111 TI3NBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 
MS 024267 103 157 156 TI3SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE” CHARACTERISTICS® 
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TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS SEQ 0126 
166 
188 * 
169 ZROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
171 :- 
17 
17 EVEN 
174 
175 024356 TI3REST: 
176 024356 SAVREG ZSAVE THE REGISTERS 
177 024362 012701 024040 MOV #T13PACKET,R1 3ST ART OF THE PACKET 
178 024366 012721 100004 MOV #100004,(R1)+ WRITE CHARACTERISTICS WITH ACK 
179 024372 012721 024050 MOV ATISDATA, (R1)+ T ADDRESS OF CHAR DATA BLOCK 
180 024376 005021 CLR Rt ZEXTENDED ADDRESS 
181 024400 012721 000010 MOV [SIZE OF DATA BLOCK IN BYTES 
182 024404 012721 024062 MOV sat (R1D+ TADDRESS OF MESSAGE BUFFER 
183 024410 005021 CLR (R1 
184 024412 012721 000016 MOV aie. cR)s jLENGTH OF MESSAGE BUFFER 
185 024416 005021 CLR (R1)+ 
186 024420 005011 CLR (R1) 
187 024422 000207 RTS PC RETURN 
188 024424 ENDTST 
024424 L10036: 


024424 104401 TRAP CSETST 
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INITIALIZE AFTER WRITE CHARACTERISTICS SEQ 0127 


~SBTTL TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


OD ce dd ed ed 2d od 
_SSSBLESREES3 - 


ZTHIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
SBSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
ZVERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
SMODE FIELD 1S REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
; D DECODING AND HANDLING SEQUENCES. 
201 024426 BGNTST re 
206 024426 012700 026241 MOV #TST141D,RO ZASCII MESSAGE TO IDENTIFY TEST 
207 024432 004737 016510 JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
208 024436 012737 000024 002216 MOV #20. ,LOOPCNT [PERFORM 20 ITERATIONS 
209 02444 T14LO0P: 
210 ere BGNSUB AAA AAAAAAA a: patel AAA 
024444 104402 TRAP C$BSUB 
211 024446 004737 026306 JSR PC, TIGREST 7SET PACKET TO INITIAL VALUES 
212 024452 294737 026344 JSR PC TIGRST :SET PACKET TO INITIAL VALUES 
213 024456 SETPRI #PRIOO [LOWER PRIORITY TO ALLOW INTERRUPTS 
024456 012700 000000 MOV #PRI00,RO 
024 104441 TRAP C$SPRI 
214 024464 5$: 
215 024464 BGNSEG g>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
024464 104404 AP ss CSBSEG 
16 024466 004737 015774 JSR PC, SOF INIT :D0 SOFT INIT OF CONTROLLER 
17 024472 103405 BCS 10$ [BR IF SOFT INIT = OK 
221 024474 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
222 024476 ERRDF ERRNO, SFIERR,SFIMSG DEVICE FATAL ERROR DURING INIT 
024476 104455 TRAP — CSERDF 
024500 000311 «WORD 201 
024502 003652 “WORD SFIERR 
024504 012034 -WORD SFIMSG 
223 024506 10$: 
224 024506 012704 025600 MOV #T14PK2,R4 ZSUBROUTINE NEEDS PACKET ADDRESS 
225 024512 737 010662 JSR PC,WRTCHR Z1SSUE WRITE CHARACTERISTICS 
226 024516 103405 BCS 11$ IF COMMAND ISSUED OK 
230 024520 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
231 024522 ERRHRD ERRNO, WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 
024522 104456 CSERHRD 
024524 312 TeORD 202 
024526 005056 “WORD WRITMSG 
024530 012034 .WORD SFIMSG 
232 024532 11$: 
233 024532 005037 002222 CLR FATFLG ZCLEAR FATAL ERROR FLAG 
234 024536 005037 002224 CLR INTRECV ZCLEAR INTERRUPT RECEIVED FLAG 
235 024542 012704 025160 MOV #TIGPACKET,RG [SET UP NEW WRT. SUBSYS MEM. C 
236 024546 010465 000000 MOV R4, TSDB(RS) SET THE PACKET ADDRESS 
237 024552 004737 016336 JSR PC: CHKTSSR T FOR. SSR TO $ 
238 024556 103407 BCS 15$ ‘oR IF Y SET (G00 RETURN) 
239 024560 010001 MOV RO,R1 : SAVE CONTEN TS OF TSSR 
243 026562 ERRDF ERRNO, T14SSR,PKTSSR [DEVICE FATAL sor FAILED TO SET 
0245 104455 TRAP 





CSERDF 
203 
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TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND SEQ 0128 
024566 025773 -WORD T14SSR 
024570 012046 s PKTSSR 
244 024572 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
245 024576 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLPI 
246 024600 ESCAPE SEG sBY-PASS SUBTEST IF FATAL ERROR 
024600 104410 TRAP CSESCAPE 
024602 000074 -WORD 10000$-. 
247 024604 005737 002224 TST INTRECV 7DID AN INTERRUPT OCCUR ? 
248 024610 001004 BNE 22$ sBRANCH IF YES 
252 024612 ERRHRD ERRNO, TIGNINT,PKTSSR 
024612 104456 TRAP CSERHRD 
024614 000314 eWORD 204 
024616 026063 «WORD TI4NINT 
024620 012046 -WORD PKTSSR 
253 024622 016501 000002 228: MOV TSSR(RS) RI :GET THE CONTENTS OF TSSR 
254 024626 012702 000200 MOV #SSR,R2 SEXPECTED CONTENTS OF 5 SSR 
255 024632 032701 000100 BIT #OFL,R1 31S OFF-LINE BIT SET 
256 024636 001402 BEQ 25$ ‘BRANCH IF NOT OFF eT ANE 
257 024640 052702 000100 BIS #OFL .R2 3SET OFF-LINE IN EXPECTED DATA 
258 024644 020201 25$: CMP R2,Ri :DOES EXPECTED MATCH RECEIVED ? 
259 024646 001404 BEQ 30 sOKAY IF MATCH 
263 024650 ERRHRD ERRNO, TI4NBA,PKTSSR oNBA NOT ZERO 
024650 104456 TRAP CSERHRD 
024652 315 WORD 5 
024654 025622 -WORD T14NBA 
024656 046 -WORD PKTSSR 
264 024660 30$: 
265 024660 004737 011114 35$: JSR PC,CKRAM + CHECK RAM TO MEMORY 
266 024664 103405 BCS RAM 
270 024666 ERRHRD ERRNO,PKTRAM,RAMERR :THEY DON'T MATCH 
024666 104456 TRAP CSERHRD 
024670 000316 -WORD 206 
024672 004745 -WORD PKTRAM 
024674 015510 -WORD RAMERR 
271 024676 ENDSEG 3 RKKKK KKK KKK END SEGMENT <<KK<<<K<KKK KKK 
024676 10000$: 
2 024676 104405 TRAP CSESEG 
273 
274 024700 59$: ENDSUB s\\VAAAAAAANAN END SUBTEST \\NANANAAAAAA 
024700 L10040: 
275 024700 104403 TRAP CSESUB 
276 024702 005737 002222 TST FATFLG ANY FATAL ERRORS ? 
277 024706 001402 BEQ 60$ ‘BRANCH IF NOT 
278 024710 004737 017202 JSR PC, CKDROP sTRY TO DROP THE UNIT 


279 024714 





oe 


mM 10 
TSVS = HARDWARE TESTS MACRO M1113 25-MAY-82 09:19 PAGE 82 


TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND SEQ 0129 

281 3+ 

282 3 

3H s TEST 2, SUBTEST 2 

285 CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 

see ;WRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 

290 Stay BGNSUB SIITITAAAA AGA ee VIG ASAAA SA 

, 024714 104402 TRAP c$BSuUB 

292 024716 SETPRI #PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
024716 012700 000000 MOV #PRIOO,RO 
024722 104441 TRAP CS$SPRI 

293 024724 012704 025600 5$: MOV #T14PK2,R4 s6eT TRE ADDRESS OF COMMAND PACKET 

294 024730 004737 026306 JSR PC, TIGREST RESTO T TO STARTING VALUES 

295 024734 004737 026344 JSR PC, TIGRST RESTORE | KET TO STARTING VALUES 

296 024740 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

297 024740 104404 TRAP CS$BSEG 

298 024742 004737 015774 JSR PC, SOF INIT :D0 SOFT INIT OF — 

299 024746 103405 BCS 10$ “BR IF SOFT INIT 

303 024750 010001 MOV RO,R1 sSAVE CONTENTS OF “1Ssr 

304 024752 ERRDF ERRNO, SFIERR,SFIMSG “DEVICE FATAL ERROR DURING INIT 
024752 104455 TRAP CSERDF 
024754 000317 -WORD 207 
024756 003652 -WORD SFIERR 
024760 012034 WORD SFIMSG 

305 024762 10$: 

306 024762 010662 JSR PC,WRICHR + ISSUE WRITE CHARACTERISTICS 

307 024766 103405 BCS 11$ IF C D pseue OK 

311 024770 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

312 024772 ERRHRD ERRNO, WRTMSG,SFIMSG SWRITE SUBS STEN MEMORY FAILED 
024772 104456 TRAP CSERHRD 
024774 000320 TUORD 208 
024776 005056 -WORD WRTMSG 
025000 012034 tas -WORD SFIMSG 

313 025002 118: 

314 025002 005037 002224 CLR INTRECV sCLEAR net RECEIVED FLAG 

315 025006 012704 025160 MOV Abt RG SET-UP WITH WRT SUBSYS MEM PACKET 

316 025012 052714 007000 BIS (nt) ZNON-ZERO COMMAND MODE BITS 

317 025016 010465 000000 MOV get se fh sSET THE PACKET ADDRESS 

318 025022 004737 016250 JSR PC Mo :WAIT FOR SSR TO SET 

319 025026 103405 BCS 15$ ‘BR IF CARRY SET (Goo RETURN) 

320 025030 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

324 025032 ERRDF ERRNO, T14SSR,PKTSSR DEVICE FATAL SSR FAILED TO SET 
025032 104455 TRAP CSERDF 
025034 000321 -WORD 209 
025036 025773 -WORD T14SSR 
025040 012046 -WORD PKTSSR 

325 025042 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
025042 104406 TRAP CSCLP1 

326 OSenee ESCAPE SEG sBY-PASS CHECKS IF FATAL ERROR 


104410 TRAP CSESCAPE 
025046 000074 -WORD 10000$-. 
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005737 
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COMMAND 


002224 


000002 
100206 
000100 


000100 


011114 


228: 


25$: 


30$: 
35$: 


59$: 


TST 
BNE 
ERRHRD 


8 
ERRHRD 


JSR 
BCS 
ERRHRD 


ENDSEG 


ENDSUB 


INTRECV 
ERRNO, TIGNINT,PKTSSR 


TSSR(R5),R1 
#SC!ISSRITSREJ,R2 
#OFL,R1 

#OFL,R2 

R2, 1 


30$ 
ERRNO, T142REJ,PKTSSR 


— 
ERRNO, PKTRAM,RAMERR 


SEQ 0130 


DID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


TRAP CSERHRD 
210 
«WORD TI4NINT 
PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF 5 SSR 
E BIT SET 
:BRAN Ne 
SET OFF-LINE IN EXPECTED DATA 
:DOES EXPECTED MATCH RECEIVED ? 
IF MATCH 
® COMMAND NOT REJECTED 


CSERHRD 
«WORD 211 


WORD T142REJ 
«WORD PKTSSR 


OG RAM TO MEMORY 
: THEY DON'T MATCH 
TRAP CSERHRD 
eWORD 212 
-WORD PKTRAM 
-WORD RAMERR 
BKK KKK END SEGMENT <<<<<<dKK<K<KK 
“ TRAP —s CSESEG 
S\NNNAAAAANANN END SUBTEST \\NANANANAAAA 
L1004; 


TRAP CSESUB 


ae oe 


— 





386 

387 tod 
388 025610 
389 assole 
390 025614 
pad 025616 


401 026063 
402 026155 
403 026241 
404 

405 





TSVS = HARDWARE TESTS 
TEST 2: BASIC WRITE SUBSYSTEM MEMORY 


355 025146 
025146 


2 


432 
001246 


025600 
100204 
025610 
000000 
000010 


025176 
000000 
000400 
000000 


Se 
o-oonnt 
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COMMAND 


EXIT TST 


i+ 
sLOCAL STORAGE FOR THIS TEST 


=<.+10>8177770 


TIGPACKET: 
WORD 100206 
«WORD TI4DATA 
-WORD 0 
WORD 6. 
TI4DATA: 
T148S0: .BYTE 0 
T148S1: .BYTE 0 
T14BS2: .WORD C 
WORD 0 
TIGBFR: .BLKW 128. 


-=<.*10>8177770 


T14PK2: 
-WORD 100204 
eWORD TI4DTA 
-WORD 0 
-WORD 8. 
TI4DTA: 
-WORD T14BFR 
-WORD 0 
-WORD 256. 
-WORD 0,0 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 


MEM. COMMAND, 
ADDRESS OF CHARACTERISTICS BLOCK 


SEQ 0131 
zALL DONE THIS TEST 
TRAP CSEXIT 
WORD 110037-. 
COMMAND PACKET FOR TEST 
WRITE SUBSYSTEM WITH IE, ACK 


sSTARTING VALUE OF BLOCK SIZE 
ZCHARACTERISTICS DATA BLOCK 
7BSELO BYTE 
3BSELI BYTE 

+4 5) 1 WORD 


sat BUFFER 


COMMAND PACKET FOR TEST 
WRITE CHARA. MEM. CMND., WITH IE, ACK 
ADDRESS OF SELECT DATA BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


SELECT DATA BLOCK 
zADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


TIGNBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 

TIG2REJ: eASCIZ ‘WRITE SUBSYSTEM MEMORY Not Re ected With aoaeee Mode Field’ 
TI4SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMOR 

TIGNINT: ASCIZ ‘Expected Interrupt Not ad, On WRITE SUBSYSTEM MEMORY ° 
TI4TSBA: ‘ “ASCIZ "Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY’ 

TST141D: — eASCIZ ‘Basic WRITE SUBSYSTEM MEMORY Command’ 





sian 





—— 
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407 
408 


425 026342 
426 

427 

428 026344 
429 026344 
430 026350 
431 026354 
432 360 
433 026364 


434 026366 
oe? 026372 


442 026416 
026416 
026416 


C 11 
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COMMAND 


025160 
100206 
025170 


000006 


rt 44 
100204 
025610 


000010 
025176 
000400 


025176 


:* 


SEQ 0132 


ROUTINE TO RESTORE COMMAND —— TO START-UP (DEFAULT) VALUES 


3WRITE SUBSYSTEM MEMORY C 


TIGREST: 
AV 


#TI4PACKET,R1 
MOV #100206, (Ri)+ 
MOV #TIGDATA, (R1)+ 


CLR (R1)+ 
MOV #6.,(R1)+ 
CLR (R1)+ 
CLR (R1)+ 
CLR (R1) 
RTS PC 
TIGRST: 
SAVREG 
V #T14PK2,R1 


MOV #100204, (R1)+ 
MOV 1 eta o(R1)+ 
+ 


#8.,(R1)+ 
MOV #TIGBFR,(R1)+ 
R1)¢ 
MOV #256.,(R1)+* 
R1)¢ 


ENDTST 


sSAVE THE Ta betel 
START OF ee 


; ADDRESS 

zSIZE_OF DATA BLOCK IN BYTES 
zCLEAR BSELO AND BSEL1 
sCLEAR SEL 

sCLEAR DATA AREA 

RETURN 


3 SAVE THE REGISTERS 
> STAR 


ACK, IE 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRES 

3SIZE OF DATA BLOCK IN BYTES 
;MESSAGE BUFFER ADDRESS 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
RETURN 


L10037: 
TRAP CSETST 


ee ee —_———_—_—--— - — -——_-__ --— 
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TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND SEQ 0133 
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472 026420 
026420 

477 026420 

478 026424 

479 026430 


480 026436 
rr} 026442 


483 026446 
484 
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030450 
016510 
003150 


00315 
021276 


002216 


SEQ 0134 
-SBTTL TEST 3: DMA MEMORY ADDRESSING 


ae 
TEST 3 
TEST DESCRIPTION 


This test verifies that the controller can properly address and 
access all available CPU memory (other than that occupied by the 
diagnostic and diagnostic supervisor code) for both reading (DATI) 
and writing (DATO). Verified are the LSI-11 Bus drivers for all 
available address lines. Up to this point only 16 bits have been 
used for DMA transfers. 


TEST STEPS 
REPEAT FROM 1 TO LOOPCNT 
BEGIN 


Do Subtest 1 - Verify GET STATUS selected locations 

Do Subtest 2 ~ Verify message packets selected locations 

Do Subtest 3 - Verify Characteristic data selected locations 
Do Subtest 4 = Verify NXM to selected invalid addresses 


END 





BGNTST ws 
MOV #TST121D,RO ZASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 

MOV #10. ,LOOPCNT :PERFORM 10 ITERATIONS 

INC T3BFLG :SET TEST FLAG 


JSR PC .MEMCK CHECK MEMORY 


LOOP ON TEST LABEL 


— 


We PSR? Sees a eee eae ay Tt ia 
| F 
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TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS SEQ 0135 


| ‘38 -SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 
+4 
| rt + ; TEST 3: SUBTEST 1: 
; 
rh ; SUBTEST DESCRIPTION: 
| 49 : This subtest verifies the controller can fetch a get status 
49 s command from all available memory locations. 
| 4% $ Two word blocks are tested one at a time by first setting 
495 : all available memory to a background pattern of 125252. 
4% 3 A Get Status command is then executed to various addresses in 
497 $ each available memory 4k word block. The various addresses __ 
rh 3 are determined by floating a 1 then a 0 through the address bits. 
500 3; TEST STEPS: 
501 : 
502 ; BEGIN ae b 
503 3 Write to TSSR to soft initialize 
ope 3 Do a WRITE CHARACTERISTICS to setup a message buffer 
3] 3 way 2 9 SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 
508 3 Get a valid modulo-4 test address 
+4 3 Do a GET STATUS command from the test address 
511 é END 
315 29 
514 026446 BGNSUB s/IIII111111/ BEGIN SUBTEST ////////// 
026446 T3.1: 
515 026446 104402 TRAP C$BSUB 
516 
517 sWrite to TSSR to soft initialize 
518 026450 004737 015774 JSR PC, SOF INIT :D0 SOFT INIT OF CONTROLLER 
519 026454 103405 BCS 15$ [BR IF SOFT INIT = Ok 
5 56 NEXT. ERRNO 
521 026456 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
522 026460 ERRDF ERRNO,SFIERR,SFIMSG DEVICE FATAL ERROR DURING INIT 
026460 104455 TRAP CSERDF 
026462 5 -WORD 301 
026464 003652 eWORD SFIERR 
523 026466 012034 eWORD SFIMSG 
524 ;Do a WRITE CHARACTERISTICS to setup a message buffer 
525 026470 158: 
526 026470 012704 030240 Vv #T12PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
527 026474 004737 031620 JSR PC, T12SWRT RESTORE PACKET TO STARTING VALUES 
528 026500 005037 34 CL KTENABLE TURN OFF KT=-1 
529 026504 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS 
530 026510 004737 016336 JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 
531 026514 FORCERROR 17$ 
532 026530 103405 BCS 208 BR IF SSR SET IN CHKTSSR 
533 026532 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
534 026534 NEXT.E 
535 026534 17$: ERRDF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
026534 104455 TRAP CSERDF 
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026536 
026540 
026542 


7 46 
577 026750 
578 026756 

7 
581 026772 
772 


026772 
582 026774 





: GET 
060456 


030552 
012046 


005037 
005037 
012702 


002222 
030310 
030314 


003134 


030310 
177776 
177774 
000001 
031316 
030304 
030302 
031666 
177774 
017274 


000000 
016336 


030446 


026560 
030310 


003132 
000001 
030314 


026560 
017274 


G 11 


STATUS SELECTED LOCATIONS SEQ 0136 
.WORD 302 
-WORD T12WRTSSR 
.WORD PKTSSR 
Verify a Get Status can be fetched from each address 
:Get a valid modulo=-4 test address 
:Do a “GET STATUS command from the test address 
50$: CLR FATFLG CLEAR FATAL ERROR FLAG 
T12kT ZTEST ABOVE 28K SWITCH 
simmons wTTDBLK.R2 :POINT TO TEST PATTERN TABLE 
CLR KTENABLE zTURN OFF ABOVE 28K TEST FLAG 
MOV (R2)+,R1 GET TEST PATTERN ADDRESS 
CLR RO ZASSUME NO T ABOVE 28k 
TST T1I2KT ZTEST ABOVE TORK THIS TIME? 
BEQ 25$ F NO 
MOV =2(R2) iGET TEST PATTERN AGAIN 
BIC #*C<A1716>,RO AVE is BIT ADDRESS ONLY 
003134 *y #1, KTENABLE TORN ON ABOVE 28K TEST FLAG 
25$: Jor PC, TI2CONVERT ZCONVERT TEST PATTERN To Test ADDRESS 
BCC 65$ [BR IF INVALID PACKET ADDRESS 
MOV TI2LOADD,R4 [COPY CURRENT PACKET Low ADDRESS 
MOV TI2HIADD,R3 [COPY CURRENT PACKET HIGH ADDRESS 
JSR PC, TI2SETGET ZSETUP CURRENT PACKET 10 GET STATUS 
BIC #*C<A1716>,R3 i SAVE ADDRESS BITS 17+16 
BIS R3,R4 ETUP 18 BIT PACKET ADDRESS 
JSR PC.KTOFF ee OFF KT=11 
MOV R46, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
SR PC. CHKTSSR WAIT FOR SSR TO SET 
FORCERROR 32 
cS 40$ BR IF SSR SET IN CHKTSSR 
V RO,R1 SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
32$:  ERRDF ERRNO,TI2GETSSR,PKTIGETS ;DEVICE FATAL SSR FAILED TO SET 
RAP CSERDF 
-WORD 303 
<WORD T12GETSSR 
“WORD PKTGETS 
40$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CS$CLP1 
65$: 
FORCEXIT 80$ 
CMP R2,4T12TBE DONE ALL TSTBLK TEST PATTERNS? 
BHIS 708 YES 
JMP T121L00P 2D0 ANO THER MODULO= 4 ADDRESS 
70$: TST T12KT [DONE ABOVE 28k TESTING TOO? 
BGT 80$ [BR IF YES 
TST KTFLG ZANY MEMORY ABOVE 28K ON SYSTEM? 
BEQ 80$ ae 
030310 MOV #1,T12kT SET § WITC 
MOV #TI2BLK,R2 :RESET TEST PATTERN TABLE 
JMP T121L00 0 ABOVE 28K TESTING 
80$: JSR PC .KTOFF OO RN OFF KT11 
ENDSUB 2 ANANALANAAANA END SUBTEST AVAAAAAAAAAAA 
TRAP CSESUB 
TST FATFLG ZANY FATAL ERRORS ? 


002222 


ee 


a 


iy H 11 
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| TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 
583 027000 061402 BEO 100$ 
584 027002 004737 017202 JSR —«PC,, CKDROP 


585 027006 100$: 
586 





BRANCH IF NOT 
TRY TO DROP THE UNIT 


SEQ 0137 
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ae 


og8 -SBTTL TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
++ 

3o0 ; TEST 3: SUBTEST 2: 

3 3; SUBTEST DESCRIPTION: 

594 3 This subtest verifies the controller can deposit message packets 

595 3 to all available memory locations. 

596 : Write Characteristics commands are executed with message 

597 : buffer addresses set to various addresses in each available 

598 : memory location. 

599 3 The various addresses are determined by floating a 1 then a 0 

on ; through the address bits. 

602 ; TEST STEPS: 

603 3 

604 ; BEGIN ae 

605 : Write to TSSR to soft initialize 

one 3 Do a WRITE CHARACTERISTICS to setup a message buffer to compare 

os 3 way SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 

610 ; Get a valid modulo-4 test address 

611 ; Set the pocket nossore buffer to the TEST ADDRESS 

612 3 Do a WRITE CHARACTERISTICS 

tt : Restore the test message buffer to background pattern 

615 s END 

$19 mi 

618 027006 BGNSUB 3///11111111/7 BEGIN SUBTEST ////////// 
027006 T3.2: 

619 027006 104402 TRAP c$BSU8 

620 a 

621 zsWrite to TSSR to soft initialize 

622 027010 004737 015774 JSR PC, SOF INIT :D0 SOFT INIT OF COsIRELLER 

623 027014 103405 BCS 15$ 3BR IF SOFT INIT = 

624 027016 NEXT. ERRNO 

625 027016 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6 027020 ERRDF ERRNO, SFIERR,SFIMSG :DEVICE FATAL ERROR punins Ba, 
027020 104455 CSERDF 
027022 000460 TCORD 304 
027024 003652 WORD SFIERR 
027026 012034 -WORD SFIMSG 
;Do a WRITE CHARACTERISTICS to setup a message buffer to compare 

629 027030 iss: ° ata 
0270 012704 030240 MOV #T1I2PACKET,R4 :GET THE ADDRESS OF COMMAND PACKET 

631 027034 004737 031620 JSR PC, TI2SWRT sSET PACKET TO WRITE CHARACTERISTICS 

632 027040 004737 017274 JSR PC .KTOFF STURN OFF KT-11 

633 027044 010465 000000 MOV R4, TSDB(RS) ise! THE PACKET Agoness 

634 027050 004737 016336 JSR PC, CHKTSSR WAIT FOR SSR TO SET 

635 027054 FORCERROR 17$ 
027070 103405 acs 208 sBR IF SSR SET IN CHKTSSR 

637 027072 010001 RO,R1 SAVE CONTENTS OF TSSR 


638 027074 NEXT. ERRNO 


| BS eh aaa amg oT Se ear 
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TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS SEQ 0139 1 
639 027074 17$:  ERRDF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
027074 104455 TRAP  CSERDF 
027076 000461 .WORD 5 
027100 030552 WORD TI2URTSSR 
. 027102 012046 .WORD PKTSSR 
641 :Get a valid aera: test address 
4 Set the Wes Chanae sage buffer to the test address 
;Do a WRI E CHARACTERISTICS 
644 027104 005037 002222 20$ FATFLG 3CLEAR FATAL ERROR FLAG 
645 027110 012703 030314 nov #T12BLK,R3 :POINT TO TEST PATTERN TABLE 
646 027114 T122L00P: 
647 027114 012301 MOV (R3)+,R1 GET TEST PATTERN ADDRESS | 
648 027116 010100 MOV R1,R 3GET ADDRESS ALL O18 BITS’ 
649 027120 042700 177774 BIC #1777764,RO SLEAVE ONLY A1l7 AND A16 
650 027124 042701 000003 BIC #3,R1 GET RID OF Ai? pos Al6 
651 027130 004737 031316 JSR PC. TIZCONVERT > CONV ERT TEST PATTERN TO TEST ADDRESS 
652 027134 103402 BCS 258 [BR IF VALID MESSAGE BUFFER ADDRESS 
653 027136 000137 027234 JMP 150$ GET ANOTHER TEST PATTERN TO TRY 
654 027142 012704 030240 25$: MOV ATIQPACKET, RG [SET THE COMMAND PACKET ADDRESS 
655 027146 004737 031620 JSR T12SWRT :SETUP TI2PACKET TO WRITE CHAR. 
656 027152 013737 030304 030250 MOV TISLOADD. TI2DATA ZSETUP LOW ORDER MESSAGE BUFFER ADD. 
657 027160 013737 030302 030252 MOV TI2HIADD, TIZDATA+2 : SETUP HIGH ORDER MESSAGE BUFFER ADD. 
658 027166 004737 017274 JSR PC .KTOFF STURN OFF 
659 027172 010465 000000 MOV R4.TSDB(RS) Set THE PACKET ADDRESS TO EXECUTE 
660 027176 004737 016336 JSR PC. CHKTSSR WAIT FOR SSR TO SET 
$41 027202 FORCERROR 32$ 
662 027216 103405 BCS 50$ zBR IF SSR SET IN CHKTSSR 
663 027220 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 
664 027222 NEXT.E 
665 027222 32$:  ERRDF ERRNO, TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
027222 104455 TRAP CSERDF 
027224 000462 WORD 
027226 030552 .WORD T12WRTSSR 
027230 012046 .WORD PKTSSR 
666 027232 50$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
027232 104406 TRAP  CSCLP1 
667 027234 150$: 
668 027234 FORCEXIT 160$ 
669 027244 020327 030446 CMP R3,4T121BE :DONE ALL TSTI2BLK TEST PATTERNS? 
670 027250 103002 BHIS  160$ YES 
671 027252 000137 027114 JMP T122L00P £00 ANOTHER MODULO- 4 ADDRESS 
672 027256 004737 017274 160$: JSR PC,.KTOFF :TURN OFF KT1 
673 027262 ENDSUB gAAAAARARAANAN END SUBTEST \\AA\\AAAAAAAA 
0272 L10044: 
62 104403 TRAP CSESUB 
64 005737 002222 TST FATFLG ZANY FATAL ERRORS ? 
675 027270 001402 BEQ 180$ [BRANCH IF NOT 
676 027272 004737 017202 JSR PC, CKDROP :TRY TO DROP THE UNIT 
67? 027276 180$: 


679 
680 
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3 + 
eee : TEST 3: SUBTEST 3: 
686 : SUBTEST DESCRIPTION: 
688 : This subtest verifies the controller can fetch a 
689 : Write Characteristics data block from all available 
690 3 memory locations. 
691 : Write Characteristics commands are executed with 
692 ; characteristic data blocks at various memory addresses. 
693 3 The various memory addresses are determined by floating 
oe : a 1 then a 0 through the address bits. 
69 : TEST STEPS: 
697 : 
698 ; BEGIN 
$° : Write to TSSR to soft initialize 
Ahh : sar a SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 
703 : Get a valid test address 
704 3 Set the test packet characteristics data pointer to the 
705 3 test address. 
706 5 Store eupectee characteristic data in test address block 
707 ; Do a WRITE CHARACTERISTIC command 
708 3 END 
709 3 END 
re 
712 oorene BGNSUB s//11111111147 BEGIN SUBTEST ////////47/ 
_ 027276 104402 “"" TRAP —s C$BSUB 
714 
71 


5 sWrite to TSSR to soft initialize 
716 027300 004737 015774 JSR PC, SOF INIT :D0 SOFT INIT OF CONTROLLER 


717 027304 103405 BCS :BR IF SOFT INIT = OK 

718 027306 NEXT. ERRNO 

719 027306 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

720 027310 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
027310 104455 TRAP CSERDF 
027312 000463 ° 307 
027314 003652 -WORD SFIERR 

, 027316 012034 «WORD SFIMSG 


38 Get a valid test address 
723 027320 005037 002222 30$: CLR FATFLG 3CLEAR FATAL ERROR FLAG 


724 027324 005037 030310 CLR T12kT [TEST ABOVE 28k SWITCH 

725 027330 012703 030314 MOV #T12BLK,R3 [POINT TO TEST PATTERN TABLE 
726 0273346 T123L00P: 

727 027334 005037 003134 CLR KTENABLE ;TURN OFF ABOVE 28K TEST FLAG 
728 027340 012301 MOV (R3)+,R1 :GET TEST PATTERN ADDRESS 

729 027342 010100 MOV R1_R 3GET ADDRESS ALL "18 BITS’ 

730 027344 042700 177774 BIC #177774,R0 ZLEAVE ONLY Al 

731 027350 042701 000003 BIC #3,R1 [GET RID OF Al? AND Al6 

732 027354 005737 030310 TST TIOKT STEST ABOVE 28K THIS TIME? 





oe 
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733 027360 061407 BEQ 25$ :8R IF NO 

734 027362 016300 177776 MOV =2(R3) ,RO GET TEST PATTERN AGAIN 

735 027366 042700 177774 BIC #°C<A1716>,RO SAVE 18 BIT ADDRESS ONLY 

736 027372 012737 000001 003134 MOV #1, KTENABLE STURN ON ABOVE 28K TEST FLAG 

737 027400 004737 031316 25$: JSR PC, TI2CONVERT [CONVERT TEST PATTERN to. TEST ADDRESS 

738 027404 103402 BCS 30$ :BR IF VALID TEST ADDRESS 

739 027406 000137 027510 JMP 60$ ZGET NEXT TEST PATTERN 

74 Set the test packet characteristics data opotnter to the test address 

741 027412 012704 030240 30$: MOV aTiep ACKET,R4 E ADDRESS OF COMMAND PACKET 

742 027416 004737 031620 JSR SWRT TRESTORE PACKET TO STARTING VALUES 

743 027422 013764 030304 000002 MOV THSLOADD. PKLOW(R4) ZSTORE CHAR. DATA PTR LOW ADDRESS 

744 027430 013764 030302 000004 MOV TI2HIADD PKHI(R4) SSTORE CHAR. DATA PTR HIGH ADDRESS 

745 027436 004737 031730 JSR PC, T1I2CHAR :STORE EXPECTED DATA IN DATA BLOCK 

746 :Do a WRITE CHARACTERISTIC command 

747 027442 004737 017274 JSR PC .KTOFF sTURN OFF KT=-11 

748 027446 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 

749 027452 004737 016336 JSR PC. CHKTSSR :WAIT FOR SSR TO SET 

750 027456 FORCERROR 32$ 

751 027472 103405 BCS 40$ zBR IF SSR SET IN CHKTSSR 

752 027474 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 

753 027476 NEXT.ERRNO 

754 027476 32$:  ERRDF ERRNO,TI2WRTSSR,PKTSSR ;:DEVICE FATAL SSR FAILED TO SET 
027476 104455 TRAP CSERDF 
027500 000464 . WORD 8 
027502 030552 “WORD T12WRTSSR 
027504 012046 .WORD PKTSSR 

755 027506 40$:  CKLOOP :LOOP ON ERROR, IF FLAG SET 
027506 104406 60S , TRAP — CS$CLP1 

757 027510 020327 030446 CMP R3,4T12TBE :DONE ALL TSTBLK TEST PATTERNS? 

758 027514 103002 BHIS  65$ :BR IF YES 

759 027516 027334 JMP T123L00P :D0 ANOTHER MODULO- 4 ADDRESS 

760 027522 005737 030310 65$: TST T12KT SDONE ABOVE 28K TESTING TOO? 

761 027526 0030 BGT 70$ 7BR IF YE 

762 027530 005737 003132 TST KTFLG TANY MEMORY ABOVE 28K ON SYSTEM? 

763 027534 001 BEQ 70$ :BR IF NO 

764 027536 012737 000001 030310 MOV #1,T12KT :SET SWITCH 

765 027544 012703 030314 MOV #Ti2BLK,R3 RESET TEST PATTERN TABLE 

766 027550 000137 027334 JMP T123L00P 3D 0 ABOVE 28k TESTING 

767 027554 004737 017274 70$: JSR PC .KTOFF STURN OFF KT11 

768 027560 ENDSUB S\ANAAAAAAAAAA END SUBTEST \A\AAAAAAAAA 
027560 L10045: 
027560 104403 TRAP  CSESUB 

769 027562 005737 002222 TST FATFLG ZANY FATAL ERRORS ? 

770 027566 001402 BEQ 75$ [BRANCH IF NOT 

771 027570 004737 017202 JSR PC, CKDROP [TRY TO DROP THE UNIT 

ore 027574 75$: 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES SEQ 0142 
Ae -SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
3+ 

oe 3; TEST 3: SUBTEST 4: 

79 : SUBTEST DESCRIPTION: 

781 : This subtest verifies the NXM error bit in the TSSR 

782 ; register is set when attempting to fetch data (a characteristic 

783 3 data block) from selected nonexistent locations. 

784 : If NXM fails to set it is likely that an LSI-11 Bus driver is 

785 3 failing to assert an address line. 

786 3 Addresses tested include all combinations of high-order address 

787 3 bits (i.e bits 16-21). 

788 3 RAEARAEAAAAAARAEAARARERARAARAARAAARARARERERAEERRERARERAEAAEREAEREEAERERE 

44 3 CAUTION 

791 : The LSI BUS drivers for all available address lines(16-21) 

792 ; are only checked when running on a 11/238 system with more than 

793 : 128K words of memory! 

an 3 RAEAAAAAAAAEAAARAAERAEERERAARAARAAEARAARRAERARARARARAREEARAREERARARAREARRAKERERERE 

796 : TEST STEPS: 

797 3 

798 3 BEGIN 

799 : Write to TSSR to soft initialize 

800 3 Do a write characteristic command 

oot : Invert the extended features switch 

803 : REPEAT FOR SELECTED NON-EXISTENT MEMORY ADDRESSES 

804 ; BEGIN 

805 ; Get an invalid test address 

806 : Set the test packet characteristics data pointer to the 

807 ; test address. 

808 3 Do a WRITE CHARACTERISTIC command 

44 3 _ If TSSR register NXM bit not set then print error message 

811 : END 

aig :- 

814 027574 BGNSUB s//AAI1t11114/ BEGIN SUBTEST ////////// 
027574 73.4: 

815 027574 104402 TRAP c$B8SUB 

816 se 

817 027576 005737 003136 TST NXMFLG :GOT ENOUGH MEMORY? 

818 027602 001002 BNE 10$ ., sIF SET STAY 

$30 027604 000137 030164 JMP NOEXTF . sLEAVE IF NOT SET 

aot sWrite to TSSR to soft initialize 

823 027610 004737 015774 10$: JSR PC, SOF INIT :D0 SOFT INIT OF CONTROLLER 

824 027614 103405 BCS 118 :BR IF SOFT INIT = OK 

825 027616 NEXT. ERRNO 

826 027616 010001 MOV 0,R1 sSAVE CONTENTS OF TSSR 

827 027620 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
027620 104455 TRAP CSERDF 
027622 000465 «WORD 309 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES SEQ 0143 
027624 063652 -WORD SFIERR 
28 027626 012034 -WORD SFIMSG 

B80 :Do a WRITE CHARACTERISTIC command so to invert switch 

831 027630 11$: CKLOOP ;LOOP IF SELECTED 
027630 104406 TRAP CS$CLP1 

832 027632 012704 030240 MOV #TI2PACKET,R4 3GET THE ADDRESS OF COMMAND PACKET 

833 027636 737 031620 JSR PC, TI2SWRT + RESTORE PACKET TO STARTING VALUES 

642 005037 003134 CLR KTENABLE ;TURN OFF K 

835 027646 010465 000000 MOV R4,TSDB(RS) SET THE PACKET ADDRESS 

836 027652 004737 016336 JSR PC. CHKTSSR ‘WAIT FOR SSR TO SET 

837 027656 FORCERROR 15$ 

838 027672 103405 BCS 17 7BR IF SSR SET IN CHKTSSR 

839 027674 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

840 027676 NEXT ERRNO 

841 027676 15$: ERRDF ERRNO, TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
027676 104455 TRAP CSERDF 

00 000466 -WORD 310 

027702 030552 -WORD T12WRTSSR 
027704 012046 ‘ -WORD PKTSSR 

842 027706 17$: CKLOOP ;LOOP IF SELECTED 
027706 104406 TRAP CSCLP1 

4 027710 004737 021206 JSR PC, INVERT s INVERT THE SWITCH 

See :Get an invalid test address 

847 027714 005037 002222 20$: CLR FATFLG sCLEAR FATAL ERROR FLAG 

848 027720 25$: 

849 027720 013737 003142 030302 MOV NXMHI, TI2HIADD sSAVE TEST ADDRESS HIGH 

850 027726 013737 003140 030304 MOV NXMLO,T12LOADD sSAVE TEST ADDRESS LOW 

851 027734 T124L00P: 

853 Set the test packet characteristics data pointer to the 

see 3 test address. 

856 027734 012704 030240 30$: MOV hy oy 1G R4 3GET THE ADDRESS OF COMMAND PACKET 

857 027740 004737 031620 JSR PC, T12SWR s RESTORE PACKET TO STARTING VALUES 

858 027744 013764 030304 000002 MOV TISLOADD. PKLOWCRE) = STOR E CHAR. DATA PTR LOW ADDRESS 

HH 027752 013764 030302 000004 MOV TI2HIADD ,PKHI (R4) sSTORE CHAR. DATA PTR HIGH ADDRESS 

861 3:Do a = CHARACTERISTIC command 

862 027760 004737 017274 PC .KTOFF STURN OFF KT-11 

863 027764 010465 000000 nov RG. TSDB(RS) SET THE PACKET ADDRESS TO EXECUTE 

864 027770 004737 016250 JSR PC.WAITF SWAIT FOR SSR TO SET 

865 027774 FORCERROR 32$ 

866 030010 103407 BCS 40$ ;BR IF SSR SET IN CHKTSSR 

867 030012 010001 MOV 0,R1 3SAVE CONTENTS OF TSSR 

868 030014 NEXT. ERRNO 

869 030014 32$: ERRDF ERRNO, TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
030014 104455 TRAP CSERDF 
030016 000467 eWORD 311 
030029 030552 WORD seuat een 
030022 012046 -WORD PKTSSR 

870 030024 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

871 030030 40$: CKLOOP ;LOOP ON ERROR, IF FLAG 4H 
030030 104406 TRAP CSCLP1 


tee eB ee POP ee BES et te > Toes ik 


ae 
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872 030032 
873 030042 


9 
918 030240 
919 030240 


TESTS 
4: NXM 


104410 
000124 


016501 


032701 
001012 


013737 
013737 


104456 
000470 
031207 
012126 
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TO SELECTED INVALID ADDRESSES 


000002 
004000 


030304 
030302 


003144 
030302 
000077 
si 


017274 


002222 


017202 
016456 


026446 


017274 
003150 


SEQ 0144 
FORCERROR 45$,NOTSSR 
ESCAPE SUB :BY-PASS SUBTEST IF FATAL ERROR 
TRAP  CSESCAPE 
«WORD 110046-. 
ilf TSSR register NXM bit not set then print error message 
MOV TSSR(RS) RI :GET TSSR CONTENTS 
FORCERROR 52$ 
IT #NXM,R1 ZNXM SET? 
BNE sBR IF YES 
NEXT. ERRNO 
52S: TIZLOADD, ERRLO ZMEMORY TEST ADDRESS LOW 
mov T1I2HIADD, ERRHI SMEMORY TEST ADDRESS HIGH 
ERRHRD ERRNO, AT SHAM ADDSSR ‘REPORT ADDRESS AND TSSR_ ERROR 
CSERHRD 
reoRo 12 
<WORD T12NXM 
-WORD ADDSSR 
60$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP  C$CLP1 
FORCEXIT 90$ 
TST T23A z1S_ IT A_11/23A? 
BNE 90$ ZYES WERE D 
MOV T12HIADD,RO GET CURRENT stiGH ADDRESS 
65$: INC [GET NEXT ADDRESS 
CMP RO,#77 ZDONE A21 “Ale? 
BHI 7BR IF YES 
75$: MOV RO, TI2HIADD [SETUP NEW HIGH ORDER ADDRESS 
oa JMP T124L00P [D0 ANOTHER NON-EXISTENT ADDRESS 
NOEXTF : 
JSR PC .KTOFF :TURN OFF KT11 
ENDSUB 2 AAAVALANAAANA END SUBTEST \\\\VAAAAAN 
L10046: 
TRAP  CSESUB 
TST FATFLG ZANY FATAL ERRORS 7 
BEQ 100$ [BRANCH IF 
JSR PC, CKDROP ZTRY TO DROP THE UNIT 
100$: JSR PC. TSTLOOP ;SHOULD WE DO ITERATIONS? 
BCC 105$ ‘BR 
ae JMP T12L00P [LOOP UNTIL ITERATION COUNT DONE 
JSR PC .KTOFF ;TURN OFF MEMORY MANAGEMENT 
CLR T3BFLG [CLEAR TEST FLAG 
EXIT TST TALL DONE THIS TEST 


:¢ 
sLOCAL STORAGE FOR THIS TEST 


TI2PACKET : 


=<, +10>8177770 
“WORD 100004 


COMMAND PACKET FOR TEST 
WRITE CHARACTERISTICS COMMAND, WITH ACK 


“+4 
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934 030306 
935 030310 
936 030312 
937 
938 
939 
940 
941 
4 030314 
9% 6 


976 030420 


TESTS 


030250 
000000 
000010 


030262 
000000 
000016 
000000 


MACRO M1113 25=MAY-82 09:19 PAGE 90-3 
4: NXM TO SELECTED INVALID ADDRESSES 


TI2DATA: 


TI2BFR: 


-BLKW 


TI2HIADD: 
TI2LOADD: 
T12PAR6: 


T12kT: 
T124TST: 


TI2DATA 


STABLE OF ADDRESSES 


T12BLK: 


eeeteeesee#ertiee eeeeeee#ee#e##e#ee#e#e#e#e#e#e#e#e#e#e##e#ee@ 
=] 





00040 


seesseses 
sssesssssss 


oo 
== 
ss 


ooooo 


C 12 


sADDRESS OF CHARACTERISTICS BLOCK 
zSTARTING VALUE OF BLOCK SIZE 


s CHARACTERISTICS DATA BLOCK 
LOW ADDRESS OF MESSAGE BUFFER 
HIGH ORDER OF MESSAGE eer 

LENGTH OF MESSAGE BUFFE 


sMESSAGE BUFFER 


HIGH ADDRESS 

LOW ADDRESS 

ewes IN PAR FORMAT 
sTEST ABOVE 28k SWITCH 

ADDRESS TEST BIT 


SEQ 0145 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES SEQ 0146 


| 

977 030422 010003 «WORD 010003 | 
978 030424 020001 -WORD 020001 
979 030426 os onde -WORD 02000 | 
980 030430 02000 «WORD 02000 
981 030432 0001 «WORD 040001 

030434 040002 -WORD 040002 
983 030436 040003 -WORD 040003 
984 030440 100001 -WORD 100001 
985 530442 100002 «WORD 100002 
986 030444 100003 «WORD 100003 
ose 030446 177777 TI2TBE: .WORD 177777 

3° 

oe LOCAL TEXT MESSAGES FOR TEST 
991 : 
992 030450 104 115 101 =TST12ID: -ASCIZ ‘DMA Memory Addressing’ 
993 03047 103 157 156 TI2GETSSR: eASCIZ ‘Contents of TSSR Incorrect After GET STATUS’ 
994 030552 103 157 156 T12WRTSSR: -ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
995 030641 115 145 163 T12MSGBUF : -ASCIZ ‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS* 

030737 102 141 143 T12BKGND: eASCIZ ‘Background Pattern Disturbed By WRITE CHARACTERISTICS’ 
997 031025 105 170 160 TI2NINT -ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
998 031116 127 162 151 T12DPR -ASCIZ ‘Write Characteristic data in ram does not match expected’ 
999 031207 124 123 123 T12NXM -ASCIZ ‘TSSR NXM bit failed to set when non-existent memory address specifi 





(a 


E 12 
| TSVS = HARDWARE TESTS MACRO M1113. 25-MAY=82 09:19 PAGE 91 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES SEQ 0147 

1908 
1005 :ROUTINE. To CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
1006 : IAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
1007 : BECINNING OF THE SUPERVISOR. THIS IS ALUAYS BELOW 24K 
1008 ; IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 is, SET 
1009 : TO THE RELOCATION BASE. 
1011 : INPUTS: 
1012 ; 
1013 : RO HIGH ORDER ADDRESS BITS 
1014 : R1 LOW ORDER ADDRESS BITS 
1016 $ TUTS: 
1017 : TI2PAR6 = ADDRESS BIASED TO PARG IF >28K UNDER TEST 
1018 : TIZHIADD = HIGH ORDER ADDRESS IN NON PA ARG FORMAT 
1019 : TIZLOADD = LOW ORDER ADDRESS IN NON P 
1020 : C BIT = 1 IF GOOD ADDRESS RETURNE 
1021 ; C BIT = 0 IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 
1023 031316 7 12CONVERT: 
1024 031316 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1025 031322 005037 030304 CLR TI2LOADD [CLEAR LOW ADDR RESS 
1026 031326 005037 030302 CLR T12HIADD [CLEAR HIGH AD DRESS 
1027 031332 005037 030306 CLR T12PAR6 CLEAR PAR6 SBIASED AD DRESS 
028 031336 042701 170000 BIC #°C<7777>,R1 ORCE TO LOWER 12 BITS OF ADDRESS 
1029 031342 010005 MOV RO,RS CAVE HIGH’ ORDER ADDRESS BITS 
1030 031344 004737 017274 JSR PC -KTOFF SSHUTOFF MEMORY MANAGEMENT 
1031 031350 013702 003124 MOV FREE ,R2 [GET FIRST FREE ADDRESS 
1032 031354 062702 000020 ADD #16. .R2 TIN CASE TEST PATTERN=0 
1033 031360 060102 ADD R1,R2 ZADD IN TEST PATTERN 
1034 031362 042702 000003 BIC #3.R2 [MAKE IT MODULO~4 
1035 031366 013703 003130 25$: MOV FREEHI R3 GET LAST FREE ADDRESS 
1036 031372 162703 000020 SUB #16. RS ZSAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER) 
1037 031376 010237 030304 MOV R2,T12LOADD : SAVE POSSIBLE Low ADDR RESS 
1038 031402 010237 030306 MOV R2.T12PAR6 [SAVE IT IN PAR6 BIAS 
1039 031406 020203 CMP R2.R3 31S THIS ADDRESS ABOVE O REE SPACE? 
1040 031410 101007 BHI 5 F YES 
1041 031412 020237 003124 CMP R2,FREE 71S IT IN FREE SPACE? 
1042 031416 103007 BHIS  50$ 7BR IF YES- ITS GOOD 
1043 031420 005737 003134 TST K TENABLE [TESTING ABOVE 28K? 
1044 031424 001004 BNE 50$ [BR IF YES 
1045 031426 000424 BR 90$ [BR IF NOT IN FREE SPACE 
1046 031430 162702 000020 35$: SUB #16. .R2 SFORCE FIT THE TEST PATTERN 
1047 031434 000754 BR 25$ STRY THIS TEST PATTERN ADDRESS 
1048 031436 50S: 
1049 031436 005737 003134 TST KTENABLE :TESTING ABOVE 28K? 
1050 031442 001420 BEQ 100$ ‘BR IF NO 
1051 031444 005737 003132 TST KTFLG ANY MEMORY ABOVE 28K? 
1052 031450 001413 BEQ 90$ 7BR IF NO 
1053 031452 004737 017256 JSR PCAKTON [TURN ON MEMORY MANAGEMENT 
1054 031456 010500 MOV [GET HIGH ORDER ADDRESS 

031460 010037 030302 MOV RO: T2HIADD [SAVE POSSIBLE HIGH AD 
1056 031464 010201 MOV Re, R1 [GET COMPUTED LOW ORDER ADDRESS 
1057 031466 004737 017316 JSR C’ SETMAP [RETURN PAR6 BIASED ADDRESS IN RO 
1058 031472 010037 030306 MOV RO" TI2PAR6 [COPY PAR6 BIASED ADDRESS 
1059 031476 103403 BCS 105$ [BR IF VALID ADDRESS 





yt 
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g 


031504 
031506 


BRSERERS 


aeseedeeceee 
oo o 
Aa~wN ~A~Nw 
WSSSSSS3F 


Se583 


SESZSESSSSSESSSE 


SQoooooooooeesoooooecoecocooo 


1560 


SSLESRELLES 
WIWNIANWWNWWIWNWNAANA AAA AIWIAIIAIAIAN AWS 
oe = = 
® 


eR Bh a me eb ab a atk a a a a de ed ht a tt os 4 th a tt ns eh HS st 
et a et 


a at a a et hk wt ts a st 


td ed ad ed ed ed 
OuFwWw-o 


1060 031500 gore 
031502 000401 


000261 
000207 


12 
MACRO M1113 25=MAY=82 09:19 PAGE 91-1 
90$: CLC sCLR C BIT FOR FAILURE 
BR 105$ ; 
100$: SEC :SET SUCCESS 
105$: RTS PC sRETURN 


002242 
000201 


016336 
000000 
016336 
000000 
016336 
000000 


000000 


000203 


000002 0023502 


ROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


i 


10$: 


20$: 


308: 
50$: 


3 INPUT: 

RS FIRST DEVICE UNIGUS ADDRESS. 
: OUTPUT: 
CARRY SET = RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 


; IMPLICIT OUTPUT: 


THE TABLE i IS FILLED WITH THE 
DATA HELD IN 
RAMSIZ SET 10 2 FOR PRAMPKT ROUTINE 


sSIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


#RAMDATA,R1 
lata oR2 
PC, CHKTSSR 


(R1)+, (R&)+ 
20$ 

R3 

R2 

R2, ARMPKTBEG+2 
10$ 
R3 
30s 
50$ 


PC 


zSAVE_THE GENERAL Bn i i 
ADDRESS TO SAVE THE RAM DAT 
BYTE ADDRESS OF piast RAM DATA 
CLEAR THE ERROR FLAG 


: FOR ssRe 
2SET MAINTENANCE MOD 
WAIT FOR SS 


3 COMPARE ye EXPECTED 
ANCH 4 


:BRAN 

2SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 
;DONE 2 BYTES? 


NO 
WAS AN ERROR FOUND ? 
BRANCH IF NOT 
SCLEAR CARRY TO SHOW ERROR 
sAND EXIT 


[SHOW GOOD COMPARE 
:SETUP RAMS IZ 


SEQ 0148 


G 12 
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SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES SEQ 0149 
Wi ¥ 

1119 SROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 

1121 

1122 031620 T12SWRT: 

1123 031620 SAVREG ZSAVE THE REGISTERS 

1124 031624 012701 030240 MOV #TI2PACKET,R1 START OF THE PACKET 

1125 031630 012721 100004 MOV #100004,(R1)+ WRITE CHARACTERISTICS WITH ACK 
1126 031634 012721 030250 MOV ATI2DATA,(R1)* ADDRESS OF CHAR DATA BLOCK 
1127 031640 005 CLR R RI) ZEXTENDED ADDRESS 

1128 031642 012721 000010 MOV ZSIZE OF DATA BLOCK IN BYTES 
1129 031646 012721 030262 MOV stissre. (R1)+ TADDRESS OF MESSAGE BUFFER 
1130 031652 005021 CLR (R1)+ 

1131 031654 012721 000016 MOV m4. (RID ZLENGTH OF MESSAGE BUFFER 
1132 031660 005021 CLR (R1)+ 

1133 031662 005011 CLR (R1) 

1134 031664 000207 RTS PC RETURN 

i386 . 

137 ZROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS 
1139 : R3 HIGH ORDER PACKET ADDRESS 

1140 : RG LOW ORDER PACKET ADDRESS 

1161 : NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 

1143 :- 

1144 

1145 031666 TI2SETGET: 

1146 031666 SAVREG ZSAVE THE REGISTERS 

1147 031672 010401 MOV R4,R1 [GET LOW ORDER ADDRESS 

1148 031674 005737 003134 TST KTENABLE STESTING ABOVE 28K? 

1149 031700 001404 BEQ 10$ :SR IF NO 

1150 031702 010300 MOV R3,RO [GET HIGH ORDER ADDRESS 

1151 031704 004737 017316 JSR PC. SETMAP SRETURN ADDRESS BIASED TO PARG IN RO 
1152 031710 010001 MOV °R [GET ADDRESS 

1153 031712 012700 000017 10$: MOV #P-GETSTATUS.RO GET STATUS COMMAND CODE NO IE 
1154 031716 052700 100000 BIS #P.ACK,RO 3SET ACK 

1155 031722 010021 MOV RO, (R15+ ‘Se oae GET STATUS IN PACKET 
1156 031724 005021 CLR (Ri)+ CLEAR | UNUSED WORD 

1157 031726 000207 RTS PC RETURN 

1158 

1159 

Her * 

1162 ZROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 
1164 i- 

1165 031730 TI2CHAR: 

1166 031730 SAVREG ZSAVE R1-R5S UNTIL NEXT RETURN 
1167 031734 012700 030250 MOV #T12DATA,RO 3GET TI2PACKET DATA POINTER 
1168 031740 013701 030304 MOV T12LOADD, R1 SASSUME NOT ABOVE 28K 

1169 031744 005737 003134 TST TENABLE i TESTING ABOVE 28k? 

1170 031750 001402 BEQ 108 F NO 

1171 031752 013701 030306 MOV T12PAR6,R1 ISET TEST ADDRESS, ABOVE 28k 
1172 031756 012021 10$: MOV (RO)+, (R1)+ [STORE DATA WORD 1 

1173 031760 012021 MOV (RO) +. (R1)+ + STORE DATA WORD 2 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES SEQ 0150 
1174 031762 012021 MOV (RO) +, (R1)+ sSTORE DATA WORD 3 
1175 031764 012021 MOV (RO)+,(R1)+* sSTORE DATA WORD 4 
1176 031766 012021 MOV (RO)+,(R1)+ sSTORE DATA WORD 5 
Wwe 031770 000207 RTS PC ;RETURN 
1179 031772 ENDTST 


031772 L10042: 
031772 104401 TRAP CSETST 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


1181 


1 12 : 


SEQ 0151 


7 


— st 


| J 12 
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TEST 4: RAM EXERCISER TEST SEQ 0152 


-SBTTL TEST 4: RAM EXERCISER TEST 


co 
Ww 


se 


THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 


QEAR 


1 
1 
1 
’ 
Mb - :T0 EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 
190 :- 
191 031774 BGNTST 
031774 T4:: 
3 
198 031774 005737 002214 TST TSTCNT ;CHECK FOR RUN MODE 
199 032000 001402 BEQ 10$ BR . IF NOT ONLY PROGRAM RUN 
200 032002 005237 003400 INC SKIPT sSET SKIP Sw 
201 032006 012700 034433 10$: MOV #TST1SID,RO ASCII MESSAGE re IDENTIFY TEST 
202 032012 004737 016510 JSR PC, TSTSETUP O INITIAL TEST SETUP 
203 032016 012737 000005 002216 MOV aS :LOOPENY < PERE ORM 5 ITERATIONS 
032024 T1SLOOP: 


my 
AR 


[TEST 4, SUBTEST 1 
THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE 


aS es St SV BS HB Ss SS HI OY ts ss at Hs 
Mmronn 
SBE 
~N 


$0 : RAM MEMORY SINGLE WORD (8 BITS) MODE 

212 $= 

213 032024 BGNSUB 3///411111//// BEGIN SUBTEST ///////4//47/ 
032024 14.1: 
032024 104402 TRAP _ C$8SUB 

1214 032026 SETPRI #PRIOO ZLOWER PRIORITY TO ALLOW INTERRUPTS 
032026 012700 000000 MOV #PRI00,RO 

2032 104441 TRAP C$SPRI 

1215 032034 005737 003400 TST SKIPT :SHOULD WE SKIP THIS SUBTEST 

1216 032040 001402 BEQ 10$ 7BR, IF NOW SKIP REQUIRED 

1217 032042 000137 032324 JMP 50$ ‘SKIP SUBTEST 

1218 032046 004737 034452 10$: JSR PC, TISREST [SET COMMAND PACKET 

1219 032052 004737 034524 JSR PC-TI5RT2 ZSET UP OTHER COMMAND PACKET 

1220 032056 004737 015774 JSR PC’ SOF INIT [D0 INITIALIZE ON CONTROLLER 

1221 032062 103405 BCS 208 [BR IF INIT WAS 

1225 032064 010001 MOV RO,R1 [CONTENTS OF TSSR REGISTER 

1226 032066 ERRDF ERRNO, SFIERR,SFIMSG TFATAL ERROR TSSR WAS NOT OK 
032066 104455 TRAP  CSERDF 
032070 000621 .WORD 401 
032072 003652 “WORD SFIERR 
032074 012034 “WORD SFIMSG 

1227 032076 20S: 

1228 032076 012704 033350 MOV #TISPACKET RG ;SUBROUTINE NEEDS PACKET ADDRESS 

1229 032102 004737 010662 JSR PC .WRTICHR TISSUE WRITE CHARACTERISTICS 

1230 032106 103405 BCS 238 BR, IF COMMAND of SSueD OK 

1234 032110 010001 MOV RO,R1 [SAVE CONTENT TSSR 

1235 036112 ERRHRD ERRNO, WRTMSG, SF IMSG WRITE CHARACTERISTI sc FAILED 
032112 104456 CSERHRD 
032114 000622 TEORD 402 
032116 005056 “WORD  WRTMSG 
032120 012034 -WORD  SFIMSG 

1236 032122 012703 000400 23$: MOV #256. .R3 ZSTARTING ADDRESS FOR RAM WRITE 





cont a 





TSVS = HARDWARE 

TEST 4: RAM EXE 
1237 032126 
1238 032134 
1239 032142 
1240 032142 
1241 032146 
1stg 032152 
1243 032156 
1244 032162 
1245 032166 
1246 032170 
1250 





esess 
RORIRIORD 
dt ed od 
PSNI) 


1251 032202 
032202 


1252 032206 
032206 


1271 032266 


1272 032270 
1273 032274 


000001 


000002 034060 


034062 
934050 
erred 


000000 
016336 


033412 


000377 


034061 


034060 


30$: 


40$: 


43$: 


45$: 


50$: 


MACRO M1113 25-MAY-82 09:19 
TEST 


K 12 
PAGE 93-1 


#1,7158S1 
#2.1158S0 
$2 
Rates RG 
R3,715S 
R4, TSDB(RS) 
PC. CHKTSSR 
308 


RO,R1 
ERRNO, T1S5SSR,PKTSSR 


SUB 


*1158S0 
R4.TSDB(RS) 
PC’ CHKTSSR 
438 


RO,R1 
ERRNO, T15SSR,PKTSSR 


TISBFR+20,R1 

R3,R2 

a R2 

ERRNO, T1SAM4 ,EXPBREC 


R3 
R3,4255. 
40$ 





SEQ 0153 
sSIZE OF TRANSFER 
sWRITE RAM ‘‘COMMAND 
sADDRESS FOR RAM 
SWRITE SUBSYS MEM PACKET 
sDATA FOR WRITE (ADDRESS) 
Zs ISSUE COMMAND 
sWAIT FOR SSR 
:BR, IF NO er 
sERROR, SAV 
sTSSR NOT ConnecT AFTER avd SUB MEM 
CSERHRD 
TeoRD 03 
-WORD TISSSR 
-WORD PKTSSR 
sDON'T CONTINUE IF ERROR ON WRITE 
TRAP CSESCAPE 
-WORD L10050-. 
;SCOPE LOOP 
TRAP CSCLP1 
sNEXT ADDRESS 
TEND OF RAM MEMORY CHECK 
sLOOP TILL ALL RAM WRITTEN 
Ha OUT R2 HIGH BITS 
sSET BACK TO 7777 
3GET DATA PATTERN BACK IN SHAPE 
sag FOR RAM READ 
sSEND OUT PACKET ADDRESS TO CONTR. 
sWAIT FOR READY, NON-AMBIGUOUS 
3BR, IF NO PROBLEM 
sSAVE TSSR 
:TSSR NOT CORRECT 
TRAP CSERDF 
-WORD 404 
-WORD T1SSSR 
-WORD PKTSSR 
sSCOPE LOOP 
TRAP CSCLP1 
seer RAM READ DATA 
sSET UP FOR COMPARE 
: CHECK WITH DATA WRITTEN 
BR IF OK, DATA IN = DATA QUT 
tT WRITTEN DATA NOT = TO READ 
TRAP CSERHRD 
-WORD 405 
-WORD TI1SAM4 
-WORD EXPBREC 
;SCOPE LOOP 
TRAP CSCLP1 
sDROP DATA COUNTER (PATTERN) 
AT BOTTOM YET 
sBR, IF MORE TO CHECK 
sSCOPE LOOP 
TRAP CSCLPI 





L 12 
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TEST 4: RAM EXERCISER TEST SEQ 0154 
1285 032326 ENDSUB SANAANNANNAANN END SUBTEST \ANVANANVAAAAN 
032326 L10050: 
032326 104403 TRAP CSESUB 


1286 


+4 
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4: RAM EXERCISER 


MNMIKMIMINIPS 
BIVSIVB 


mm 
33 
oS 
Ww 
mM 
WW 
W 
fw 


ee ed ad a nh nt a tt td 
SResssEy 


eh epee pe pe 
ab a 
-—COoaon 
oooooo 
ROROTORD 
r~ 
—_ 
LS 


wr 
te 
MR 
= 
~ 


ee ed ad ed ed dd 
oO 
x 
& 
wi 
Nm 


CHRRORSRORGAS 
v4 
—) 
ie 
v4 
S 
Nm 


Won 
~N 
So So 
oY 
Ww 
& 


1332 039466 
032466 
1333 


1334 
1335 032470 
336 03247. 


1338 032500 
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034452 
034524 
015774 


033350 
010662 


000001 
034050 
000400 
000002 
034064 
034062 
000000 
016336 


010000 


034061 


034060 


+ 


BGNSUB 


STEST 4, SUBTEST 2 


20$: 


25$: 


30$: 


33$: 


35$: 


SEQ 0155 


3//11111111/// BEGIN SUBTEST //////4/////7/ 
"TRAP ss C$BSUB 


THIS SUBTEST WRITES RAM WITH ALL ZEROS 
THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 


JSR PC, et 
JSR PC, TISRT2 
JSR PC SOF INIT 
BCS 20$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


MOV #TISPACKET,R4 
JSR PC CHR 


BCS 258 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SF IMSG 
MOVB «#1, T158S1 

MOV ATISPK2,RG 

MOV #256. RS 

MOVB = 2 77 $650 
CLRB3s«CT15S3 

MOV R3,T15S2 

MOV R4.TSDB(RS) 

JSR PC’ CHKTSSR 

BCS 33§ 

MOV RO,R1 

ERRHRD ERRNO,T15SSR,PKTSSR 
CKLOOP 

INC R3 

CMP R3,410000 

BNE 30$ 

DEC R3 





sRESTORE PACKET FOR WRITE CHARA 
sRESTORE PACKET FOR WRT SUB SYS MEM 
D0 INITIALIZE ON CONTROLLER 

BR IF INIT WAS OK 

sCONTENTS OF TSSR ig ty 


FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
° 406 
eWORD SFIERR 
«WORD SFIMSG 


3 SUBROUTINE NEEDS PACKET ADDRESS 
2 ISSUE WRITE CHARACTERISTICS 
COMMAND ISSUED OK 


IF 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC veaaee 
CSERHRD 
"GORD 407 
-WORD WRTMSG 
WORD SFIMSG 


SET SIZE OF TRANSFER 1 BYTE 
sSET NEW PACKET ADDRESS 
sSTARTING ADDRESS IN RAM 
;WRITE - COMMAND 


SET DATA TO 000 
TADDRESS. TO PACKET DATA AREA 
: SEND yd —— ADDRESS 


o OR 
2BR, IF NO PROBLEM 
sSAVE TSSR 
zTSSR NOT CORRECT 
TRAP CSERHRD 
408 


-WORD 

-WORD TISSSR 

-WORD PKTSSR 
SCOPE LOOP 

TRAP CSCLP1 


ZNEXT ADDRESS 

SEND OF RAK MEMORY CHECK 
7BR, MORE RAM TO GO 

[SET BACK TO O 7r97 


Reps owen OS t wet 
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TEST 4: RAM EXERCISER TEST SEQ 0156 
1339 032502 06500 40$: CLR R2 :SET TO ALL ZEROS 
1340 032504 112737 000001 034060 MOVB #1,7158S0 
1341 032512 010337 034062 MOV R3,115S2 T ADDRESS TO BE READ TO PACKET DATA 
134¢ 032516 010465 000000 MOV R4.TSDB(RS) ‘SEND OUT PACKET ADDRESS 
1343 032522 004737 016336 JSR PC; CHKTSSR [WAIT FOR SSR TO SET 
1344 032526 103405 BCS 41 7BR, IF ALL IS WELL 
1345 032530 010001 MOV RO,R1 3S 
1349 032532 ERRHRD ERRNO,T15SSR,PKTSSR STSSR NOT CORRECT 
032532 104456 TRAP CSERHRD 
032534 000631 .WORD 409 
032536 e WORD T15SSR 
032540 012046 “WORD PKTSSR 
1350 032542 41$:  CKLOOP :SCOPE LOOP 
032542 104406 TRAP _ C$CLP1 
1351 032544 013701 033412 MOV T1SBFR+20,R1 zPICK UP READ DAT 
1352 032550 120102 CMPB —sR'1,R2 [BOTH SHOULD BE 0000000 BINARY 
1353 032552 001404 BEQ 42 7BR, IF DATA D 
1357 032554 ERRHRD ERRNO,T1SAM3,EXPBREC §§ :CHARACTERISTICS DATA NOT CORRECT 
032554 104456 CSERHRD 
032556 000632 TeORD 410 
032560 034243 “WORD T15AM3 
032562 015502 .WORD EXPBREC 
1358 032564 42$: CKLOOP ;SCOPE LOOPER 
032564 104406 TRAP CSCLP1 
1359 032566 012702 000377 MOV #900377. R2 rSET ALL AQNES WORD 
1360 032572 112737 000002 034060 MOVB #2,T15BS0 “WRITE R COMMAND 
1361 032600 112737 000377 034064 MOVB #000377, T15$3 TALL ONES P TTERN 
1362 032606 010465 000000 MOV R4, TSDB(RS) PASS PACKET ADDRESS TO CONTR. 
1363 032612 004737 016336 JSR PC CHKTSSR [WAIT FOR SSR 
1364 032616 103405 BCS 43$ :BR, IF Ok (NO ERROR) 
1365 032620 010001 MOV RO,R1 SSAVE TSSR 
1369 032622 ERRHRD ERRNO,T1SSSR,PKTSSR :TSSR NOT CORRECT 
032622 104456 TRAP CSERHRD 
032624 000633 «WORD 411 
032626 034066 “WORD T15SSR 
012046 “WORD PKTSSR 
1370 032632 43$:  CKLOOP :SCOPE LOOP 
032632 104406 TRAP — C$CLP1 
1371 032634 112737 000001 034060 MOVB = #1, T158S0 :SET UP FOR RAM READ 
1372 032642 010465 000000 MOV R4.TSDB(RS) TISSUE RAM READ 
1373 032646 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
1374 032652 103405 BCS 44$ [BR, IF OK (NO ERROR) 
1375 032654 010001 MOV RO,R1 : 
1379 032656 ERRDF ERRNO, T15SSR,PKTSSR :TSSR NOT CORRECT 
032656 104455 TRAP  CSERDF 
32660 000634 «WORD 412 
032662 034066 “WORD T1S5SSR 
032664 012046 “WORD PKTSSR 
1380 032666 013701 033412 44$: MOV T1SBFR+20,R1 :PICK UP REC'D DAT 
1381 032672 120102 CMPB Ss R}1,R2 [CHECK WITH DATA WRITTEN 
1382 032674 001404 BEQ 458 ‘BR IF OK, DATA IN = DATA OUT 
1386 032676 ERRHRD ERRNO,T1SAM2,EXPBREC § :WRITTEN DATA NOT = TO READ 
032676 104456 TRAP  CSERHRD 
32700 000635 «WORD 413 
032702 034142 “WORD T15AM2 
2704 015502 -WOi>  EXPBREC 


032704 
1387 032706 45$: CKLOOP SCOPE LOOP 





at 
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TEST 4: RAM EXERCISER TEST SEQ 0157 
1644 TRAP CSCLP1 
00530 DEC R3 :DROP RAM ADDRESS POINTER 
020327 000377 CMP R3,4255. ZA START 
001271 BNE 40$ “BR, IF MORE RAM TO CHECK 
ENDSUB T\AVAAAAAAAAAN END SUBTEST \AWAVAAVAAAAAN 
110051: 


032720 . 
3 032720 TRAP CSESUB 


TSVS = HARDWARE TESTS 


| 
| 





| TEST 4: RAM EXERCISER TEST 


1395 O33 7e¢ 
032722 104402 


3 
1445 033104 0013 
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BGNSUB 


hg 


:TEST 4, SUBTEST 3 


C 13 


003400 TST SKIPT 
BEQ 10$ 
033326 JMP 50$ 
034452 10$: JSR PC, TISREST 
034524 JSR PC; TISRT 
015774 JSR —s- PC, SOF INIT 
BCS 208 


MOV RO,R1 
ERRDF  ERRNO,SFIERR,SFIMSG 


20$: 
033350 MOV #T1SPACKET,R4 
010662 JSR PC ,WRTCHR 
BCS 25$ 
MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 
25$: 
1 034061 MOVB #1, T15BS1 
034050 MOV ATISPK2_RG 
00 MOV 56. .R 
2 034060 MOVE #2,7158S0 
000377 0 MOVB #377,115S3 


30$: MOV R3,T15S2 


MOV R4, TSDB(RS) 


BCS 33$ 


MOV RO,R1 
ERRHRD ERRNO,TISSSR,PKTSSR 


33$: CKLOOP 
INC R3 
010000 CMP R3.410000 
BNE 30$ 


PC,.CHKTSSR 


SAINI TANT ee ULL 


TRAP C$8SU8 


THIS SUBTEST WRITES RAM WITH ALL ONES 
THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 


+ CHECK RUN MODE 


3 ST 

RESTORE PACKET FOR WRITE CHARA 
RESTORE PACKET FOR WRT SUB SYS MEM 
:b0 gg A CONTROLLER 

BR IF INIT WAS OK 
sCONTENTS OF wTesR REGISTER 
FATAL ERROR TSSR WAS < 


CSERDF 
«WORD Ts 
-WORD SFIERR 
«WORD SFIMSG 


s SUBROUTINE NEEDS PACKET ADDRESS 
+ ISSUE WRITE CHARACTERISTICS 
IF COMMAND ot D OK 


SAVE CONTENTS TSSR 
WRITE CHARACTERIST Isc > 


CSERHRD 
GORD 415 
eWORD WRITMSG 
-WORD SFIMSG 


sSET SIZE TO 1 BYTE 
zSET NEW PACKET ADDRESS 
th Ging My en he IN RAM 


sWRITE Cc 
SET DATA TO 377 
zADDRESS TO PACKET DATA AREA 


SEND OUT PACKET ADDRESS 
WAIT FOR SSR 


SSR 
ZTSSR NOT CORRECT 


TRAP CSERHRD 
416 


-WORD 

WORD T15SSR 

-WORD PKTSSR 
:SCOPE LOOP 

TRAP CSCLP1 


sNEXT ADDRESS 
zEND OF RAM MEMORY CHECK 
:BR, MORE RAM TO GO 


SEQ 0158 








033236 
1477 033240 
033240 
1478 033242 


033272 
1487 033274 
1488 033300 
1489 033302 
1493 033304 
033304 
033306 
033310 
033312 
1494 033314 
033314 
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033412 


000377 
000002 
000377 
016336 


000001 
000000 
016336 


033412 


034060 


034060 
034064 


034060 


35$: 
40$: 


41$: 


42$: 


43$: 


44$: 


45$: 





DEC 


CKLOOP 
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R3 
#377,R 
#1, 71800 
R3.115S2 
R4.TSDB(RS) 
PC; CHKTSSR 
41$ 


RO,R1 
ERRNO, TISSSR,PKTSSR 


T1SBFR+20,R1 
R1,R2 


42$ 
ERRNO, T15AM3,EXPBREC 


#000377,R2 
#2,1715BS0 
#000377,115S3 
R4, TSDB(RS) 
PC CHKTSSR 


438 
RO,R1 
ERRNO, T1SSSR,PKTSSR 


T158S0 
Ra. *TSDBERS) 
PC,CHKTSSR 


44$ 
RO,R1 
ERRNO, TISSSR,PKTSSR 


TISBFR+20,R1 
R1,R2 


45 
ERRNO, T1SAM2, EXPBREC 


sSET BACK 10 7777 
: TO ALL ONES 
READ RAM COMMAND 
SADDRESS TO BE oe TO PACKET DATA 
SEND OUT PACKET ADDRESS 
sWAIT FOR SSR TO SET 
2BR, IF ALL IS WELL 
sSAVE TSSR 
:TSSR NOT CORRECT 
TRAP CSERHRD 
-WORD 417 
-WORD TISSSR 
«WORD PKTSSR 
:SCOPE LOOP 
TRAP CSCLP1 
PICK UP READ DATA 
B0TH 1F nate e 19191111 BINARY 
s CHARACTERISTICS DATA NOT CORRECT 
TRAP CSERHRD 
-WORD 418 
WORD T15AM3 
«WORD EXPBREC 
3SET ot ante WORD 
TWRITE R Le saan 
zALL ONES. P TTERN 
:PASS PACKET ADDRESS TO CONTR. 
OR IT FOR SSR 
IF o (NO ERROR) 
SAVE T 
zTSSR Nor CORRECT 
TRAP CSERHRD 
-WORD 419 
-WORD T1SSSR 
-WORD PKTSSR 
SCOPE LOOP 
TRAP CSCLP1 
SET UP FOR RAM READ 
2 ISSUE RAM READ 
sWAIT FOR SSR TO SET 
2BR, IF OK (NC ROR) 
sSAVE TSSR 
zTSSR NOT CORRECT 
TRAP CSERHRD 
«WORD 0 
-WORD TISSSR 
-WORD PKTSSR 
zPICK UP REC'D DATA 
CHECK WITH DATA WRITTEN 
2BR IF OK, DATA _IN = DATA OUT 
WRITTEN DATA NOT = TO READ 
RAP CSERHRD 
- WORD 1 
-WORD TISAM2 
-WORD EXPBREC 
:SCOPE LOOP 
TRAP CSCLP1 


SEQ 0159 
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1495 033316 0065303 DEC R3 
1496 033320 020327 000377 CMP R3,4255. 
1497 033324 001271 BNE 40$ 
1499 033326 50S: 
1500 033326 ENDSUB 

03332 


6 
033326 





SEQ 0160 


zDROP_RAM ADDRESS POINTER 

zAT START YET 

:BR, IF MORE RAM TO CHECK 

ZVAVANANANAAAN END SUBTEST \NANNANAAAAAN 
L10052: 


" TRAP = CSESUB 
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TEST 4: RAM EXERCISER TEST SEQ 0161 
1502 
1503 033330 004737 016456 JSR PC, TSTLOOP 3D0 WE NEED TO ITERATE TEST ? 
1504 033334 10300 i ‘BRANCH IF NOT 
1505 033336 000137 032024 JMP T15LOOP sEXECUTE AGAIN 
1506 03334 63$: EXIT TST ‘ALL DONE THIS TEST 
033342 104432 AP = CSEXIT 
_ 033344 001216 «WORD 110047-. 
3¢ 
1508 ZLOCAL STORAGE FOR THIS TEST 
1509 i- 
1510 
1512 033350 .=<.+10>8177770 
1514 033350 TISPACKET: COMMAND PACKET FOR TEST 
1515 033350 100204 -WORD 100204 WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
1516 033352 033360 -WORD  TISDATA TADDRESS OF CHARACTERISTICS BLOCK 
1517 033354 000000 WORD 0 
1518 033356 000010 -WORD 8. zSTARTING VALUE OF BLOCK SIZE 
1519 033360 TISDATA: CHARACTERISTICS DATA BLOCK 
1520 033360 033372 .WORD TISBFR zADDRESS OF MESSAGE BUFFER 
1521 033362 000000 WORD 0 
1522 033364 000400 -WORD 256. ;LENGTH OF MESSAGE BUFFER 
1523 033366 000000 -WORD 0,0 
1528 033372 TISBFR: .BLKw 150. ZMESSAGE BUFFER 
1326 ZWRITE SUBSYSTEM MEMORY COMMAND PACKET 
1529 034050 -=<.+10>8177770 
1531 034050 T15PK2: 
1532 034050 100206 «WORD 100206 ZWRITE SUB SYS MEM COMMAND, IE AND ACK 
1533 034052 034060 -WORD 1158F2 ZADDRESS OF SELECT BLOCK DATA 
1534 034054 000000 «WORD 0 
1339 034056 000006 -WORD 6. zSIZE OF DATA PACKET 
1537 -EVEN 
1538 034060 T158F2: 
1539 034060 000 T158S0: .BYTE 0 sBSELO AREA 
1540 034061 000 T158S1: .BYTE 0 :BSEL1 AREA 
1541 034062 000000 T15S2: .WORD 0 3SEL 2 AREA 
1348 034064 000000 T15S3: .WORD 0 [DATA AREA 
1544 
1545 
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TEST 4: RAM EXERCISER TEST SEQ 0162 
1547 
1548 3+ 
138? sLOCAL TEXT MESSAGES FOR TEST 
1551 ? 
1552 034066 127 122 111 TISSSR: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
1553 034142 127 122 111 TISAM2: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On ALL Ones Word Read Back’ 
1554 034243 127 122 111 TISAM3: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On ALL Zeros Word Read Back’ 
1555 034345 127 122 111 TISAM4: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On Address Test‘ 
1556 034433 122 101 115 TST1SID: eASCIZ ‘RAM Exerciser’ 
1557 -EVEN 
33 . 
1560 “ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
1303 WRITE SUBSYSTEM MEMORY COMMAND 
1563 3= 
1564 
1565 034452 TISREST: 
1566 034452 SAVREG sSAVE THE REGISTERS 
1567 034456 012701 033350 MOV #TISPACKET,R1 sSTART OF THE PACKET 
1568 0344 012721 100204 MOV #100204, (R1)+ [WRITE SUBSYSTEM MEM. WITH ACK, IE 
1569 034466 012721 033360 MOV #T15DATA, (R1)+ *ADDR ESS OF CHARAISTICS DATA BLOCK 
1570 034472 005021 CLR tig Z EXTENDED ADDRESS 
1571 034474 012721 000010 MOV « (R1)+ sSIZE OF DATA BLOCK IN oraee 
1572 034500 012721 033372 MOV srisern cane TADDRESS OF MESSAGE BUFFE 
1573 034504 005021 CLR (R1)+ 
1574 034506 012721 000400 MOV #256. ,(R1)+ LENGTH OF MESSAGE BUFFER 
1575 034512 005021 CLR (R1)+ 
1576 034514 005011 CLR (R1) 
1577 034516 005037 033372 CLR T15BFR sCLEAR 1ST LOC IN MESSAGE BUFFER 
1378 034522 000207 RTS PC RETURN 
1580 
1581 034524 TISRT2: : 
1582 034524 SAVREG sSAVE THE 3 at 4 ine 
1583 034530 012701 034050 MOV #T15PK2,R1 sSTART OF THE PAC 
1584 034534 012721 100206 MOV #100206, (R1)+ WRITE SUBSYSTEM” nER. WITH ACK, IE 
1585 034540 012721 034060 MOV aT 13BF 2, (R1)+ ADDRESS - oaTe BLOCK 
1586 034544 005021 CLR (R1)+ sEXTENDED ADDRESS 
1587 034546 012721 000006 MOV #6.,(R1)* SIZE OF DATA BLOCK IN BYTES 
1588 034552 005021 fLR (R1)+ 
1589 034554 005021 CLR (R1)+ 
1590 034556 005011 CLR (R1) 
1591 034560 000207 RTS PC RETURN 
1592 034562 ENDTST 
034562 L10047: 


TRAP CSETST 
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139? -SBTTL TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,6 


1 34+ 
iF 44 3; TEST DESCRIPTION: 
1599 : This test verifies the Invert Extended Features function 
1600 : can logically invert the Extended features switch and 
ed 3 that the internal timers A and B operate correctly. 
1603 ; TEST STEPS: 
1604 $ 
1605 : REPEAT FOR LOOPCNT 
1606 ; BEGIN s . 
1607 $ Do Subtest 1 - Verify Extended Features Switch 
1608 : Do Subtest 2 - Verify Timers A,8 
1609 3 ND 
1610 “= 
1611 
1612 
1613 034564 BGNTST 

034564 TS:: 
1618 034564 012700 036642 MOV #TST161D,RO sASCII MESSAGE TO IDENTIFY TEST 
1619 034570 004737 016510 JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
1620 034574 012737 000012 002216 MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
lost 034602 TI6LOOP: 


SEQ 0163 


-————__-—-—- 
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! 


| 





1672 034602 
034602 
034602 104402 
1673 
1674 
1675 034604 
1676 
1677 034604 004737 015774 
1678 034610 103405 


m 
S 


5$: 


BEGIN 
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-SBTTL TEST 5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


oe 
TEST 5: SUBTEST 1: 
SUBTEST DESCRIPTION: 


This subtest verifies that the Invert Sense of Extended features 
Switch function (Write Subsystem Memory,Write Misc command) 
operates properly. 

First the state of the Extended Features switch is read in the 

message packet supplied by the write characteristics command. 
Then, the sense of the switch is logically inverted. 

A Write characteristics command is executed and it is verified 
that the Extended status register (XST4) is returned when 

in Extended mode, and not returned if not in extended mode. 
The subtest also verifies that specifying a Message Buffer 
nye _ any of bits 21-19 ,set will cause the command to 
e rejected. 


TEST STEPS: 


Write to TSSR poateney to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
eee Features Hardware Switch CLEAR 


(* Verify Extended Features switch can be Inverted to SET *) 

Do Write Subsystem Write Miscellaneous to SET Extended Features. 
DO a WRITE CHARACTERISTICS with an extended characteristic word 

cr pere the controller ram to the extended characteristic word 

If Data word in controller ram NOT= to word sent Tnen Print Error 
Hy Message Buffer Data Length NOT= 12. Then Print Error 


E 
(* Verify Extended Features switch can be Inverted to CLEAR *) 
Do Write Subsystem Write Miscellaneous to CLEAR Extended Features. 
Do a WRITE CHARACTERISTICS without an extended characteristic word 
as ne Buffer Data Length NOT= 10. Then Print Error 


(* Verify Function Reject when Message Buffer 21-19 are non-zero *) 
Write to TSSR coassres to soft initialize the controller 
REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM 0107 
DO a WRITE CHARACTERISTICS with a message address bit<21:19> non-zero 
If ashe termination code NOT= Function Reject Then Print Error 


END-REPEAT 
BGNSUB WALLA eat! SUBTEST //////4/47/ 
“"" TRAP ss CSBSUB 
Write to TSSR vogteter to soft initialize the controller 
JS PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
10$ [BR IF SOFT INIT OKAY 


SEQ 0164 


aa 


1679 ossele 
1680 0 Berele 


SEREREREEE 


0 
1691 034674 
1692 034700 
034700 
1693 
1695 
96 
1697 034702 
1698 034706 
iy 444 Esthet 
03471 
1701 034722 


ROO 
R 


RRREPRER ES 
ooo0oo°o 

yy 

RK 


eee ee ee) 


a 
N=o 
So 
¥ 
Es 
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010001 


012701 
032761 
001402 


000137 
012703 
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002222 


000200 000012 


002222 


125252 
040170 


000020 000006 
spies 040210 
01066 


002312 


ios: 


12$: 


15$: 


32$: 


40$: 


VERIFY EXTENDED FEATURES TEST 


MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO,SFIERR,SFIMSG :DEVICE FATAL DURING ~— 
TRAP CSERDF 

-WORD 500 
“WORD SFIERR 
-WORD SFIMSG 

Do WRITE acy ala to check for Extended Features Switch 

JSR PC, TI6REST sRESTORE PACKET DEFAULTS 

CLR FATFLG [CLEAR FATAL ERROR 

MOV ATIGPACKET R4 a ye THE ADDRESS OF COMMAND PACKET 

JSR PC ,WRTC WRITE CHARACTERISTICS COMMAND 

FORCERROR 12$ jor ERROR IF FORCER=1 

BCS 15$ BR IF SET (GOOD RETURN) 

+ , RO,R1 SAVE CONTENTS OF TSSR 

ERRDF  ERRNO,TI6SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
eWORD 501 
-WORD T16SSR 
-WORD PKTSSR 

INC FATFLG :SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


If Extended Features Hardware Switch Clear then: 
(* Verify Extended Features switch can be Inverted to SET *) 
REPEAT FOR TEST PATTERNS IN TSTBLK TABLE 
MOV #T16BFR,R1 sMESSAGE BUFFER ADDRESS 
BIT #X2. EXTF, xST2(R1) sEXTENDED FEATURES SWITCH CLEAR? 
BE ooes :BR IF YES 


MOV #TSTBLK+10. .R3 ‘START OF TEST DATA 
Do Write Subsystem Write Miscellaneous to SET Extended Features. 


JSR PC, TI6SEXT ZSETUP PACKET FOR WRITE MISC INVERT 
MOV #TI6PK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) 7SET THE PACKET ADDRESS TO EXECUTE 
JSR PC; CHKTSSR :WAIT FOR SSR TO SET 


FORCERROR 328 tne ORCE ERROR IF ee 

BCS 40$ BR IF CARRY SET (GOOD RETURN 

MOV RO,R1 SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,T162SSR,PKTSSR DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
- WORD 02 
-WORD T162SSR 
-WORD PKTSSR 


3SET FATAL ERROR FLA 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


INC FATFLG 
CKLOOP 


D0 a ware, 71 aah with an extended characteristic word 
MOV SET XTEND 


MOV #TI6PACKET.R4 ; 

MOV #16, ,PKBCNT (R4) 2 STORE 
MOV DATA, TIGDATA+10 
JSR PCLURTCHR 


UP TEST DATA FOR EXTENDED WORD 
253 OF — PACKET 


GE _PACKE 
+ STORE TEST DATA_IN EXTEND©D WORD 
:D0 WRITE CHARACTERISTICS COMMAND 


SEQ 0165 


Tn 
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S 
TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST SEQ 0166 
1722 035036 FORCERROR 42$ ORCE ERROR IF — 
1723 035052 103407 BCS 50$ sR IF cine. SET (GOOD RETURN) 
1724 035054 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1725 035056 NEXT.E 
1726 035056 42$: ERRDF ERRNO,TI6SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035056 104455 TRAP CSERDF 
035060 000767 : eWORD 503 
035062 036712 -WORD T16SSR 
035064 012046 «WORD PKTSSR 
1727 035 005237 002222 INC FATFLG 7SET FATAL ERROR FLAG 
1728 035072 50$: CKLOOP [LOOP ON ERROR, IF FLAG SET 
035072 104406 TRAP C$CLP1 
1729 3 If the TSBA Address Register NOT= sr reected Then Print aa 
1730 035074 016501 000000 MOV TSBA(RS) ,R1 :GET TSBA iat kata CONTENTS 
1731 035100 012702 040212 MOV #T16BFR,R2 sSTART OF THE DATA BUFFER 
1732 035104 062702 000020 62$: ADD #16. .R2 ZEXPECTED CONTENTS = ate 
1733 035110 FORCERROR 72$,NOTSSR s@@DFORCE ERROR IF FORCER=1 
1734 035120 020102 CMP R1,R2 :COMPARE EXPECTED TO RECEIVED 
1735 035122 001404 BEQ Ra [ERROR IF NOT EQUAL 
1736 035124 NEXT.ERR 
1737 035124 72$: ERRHRD ERRNO, TI6TSBA, EXPREC sPRINT THE ERROR & EXPD/RECV 
035124 104456 TRAP CSERHRD 
035126 000770 -WORD 504 
035130 037060 eWORD TI6TSBA 
035132 015474 -WORD EXPREC 
1738 035134 80$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
035134 104406 TRAP CS$CLP1 
1739 3 Compare the controller ram to the extended characteristic word 
1740 ; If Data word in controller ram NOT= to word sent Then Print Error 
1741 035136 012704 040200 MOV #TI6DATA,R4 GET ywptiry DATA ADDRESS 
1742 035142 004737 011224 JSR PC, CKRAM2 ;DOES RAM DATA EQUAL DATA SENT? 
1743 035146 FORCERROR 92$ s@@DFORCE ERROR IF FORCER=1 
1744 035162 103404 BCS 100$ :BR IF YES 
1745 035164 NEXT. ERRNO 
1746 035164 92$: ERRHRD ERRNO, PKTRAM,RAMERR sREPORT THE RAM ERROR(S) 
035164 104456 TRAP CSERHRD 
035166 000771 -WORD 505 
035170 004745 -WORD PKTRAM 
035172 015510 WORD RAMERR 
1747 035174 100$: CKLOOP ;LOOP ON ERROR, IF FLAG SET, 
035174 104406 CSCLP1 
1748 $ If Recsees Dy Dut ter Data Length NOT= 12. Then Print Error 
1749 035176 012702 040212 MOV :GET MESSAGE BUFFER ADDRESS 
1750 035202 016201 000002 MOV 2(R2) te [GET RECV DATA FIELD LENGTH 
1751 035206 012702 000014 MOV #12. ,R2 GET EXPD DATA FIELD LENGTH 
1752 035212 FORCERROR 112$,.NOTSSR s@@DFORCE ERROR IF FORCER=1 
1753 035222 020102 CMP R1.R :COMPARE EXPECTED TO RECEIVED 
1754 035224 001404 BEQ 126$ TERROR IF NOT EQUAL 
1755 035226 NEXT. ERRNO 
1 035226 112$:  ERRHRD ERRNO, TI6LEN,EXPREC sPRINT THE ERROR & EXPD/RECV 
035226 104456 TRAP CSERHRD 
035230 000772 «WORD 506 
Oeste 037162 eWORD TI6LEN 
035234 015474 -WORD EXPREC 
1757 035236 120$: CKLOOP 7LOOP ON ERROR, IF FLAG SET 
035236 104406 ; TRAP CSCLP1 
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015774 


035446 


002222 


ery 


002222 


040214 
000012 


232$: 


2428: 


2628: 


JSR PC, SOF INIT 
BCS 125$ 


MOV RO,R1 
ERRDF ERRNO,SFIERR,SFIMSG 


sWRITE TO TSSR TO ay INITIALIZE 
38R IF SOFT INIT OKAY 

sSAVE CONTENTS OF TSSR 
ZDEVICE FATAL DURING a 


CSERDF 
-WORD 506 
«WORD SFIERR 
-WORD SFIMSG 
CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
JMP 300$ 3 


(* Verify Extended Features switch can be Inverted to CLEAR *) 


1 Asta cerigsent Write Miscellaneous to CLEAR Extended Bey ge be 


5. te UP PACKET FOR WRITE MISC iareat 
MOV at FOP 2.R4 7GET WRITE SUBSYSTEM COMMAND PACKET 
MOV Re ssoB ins) SET THE vaeer one To EXECUTE 
JSR PC, CHKTSSR [WAIT FOR SSR TO SET 
FORCERROR 232$ hme ORCE ERROR IF — 
Bcs 240$ zBR IF CARRY SET (GOOD RETURN) 
~ ER wae 3 SAVE CONTENTS OF TSSR 
ERRDF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
eWORD 507 
eWORD 1T162SSR 
e-WORD PKTSSR 
INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
DO a WRITE CHARACTERISTICS without an extended characteristic word 
MOV #TIGPACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 
MOV #14. ,PKBCNT(R4) sSTORE MESSAGE PACKET SI 
JSR PC,.WRICHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 242$ FORCE ERROR IF FORCER=1 
BCS 250$ 7BR IF CARRY SET (GOOD RETURN) 
~ . RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF  ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 508 
-WORD T16SSR 
-WORD PKTSSR 
INC FATFLS sSET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG ser 
TRAP CSCLP1 
If Message puller Data Length NOT= 10. Then Print Error 
MOV T168FR+2,R1 3GET RECV DATA rigte Lenety 
MOV #10. PR [GET EXPD DATA FIELD LENGTH 
CMP R1,R2 [COMPARE EXPECTED TO RECEIVED 
=e TERROR IF NOT EQUAL 


T.ERRNO 
ERRHRD ERRNO, T16LEN,EXPREC :PRINT THE ERROR & cwrerecy 


CSE 
-WORD 509 


SEQ 0167 


a 





035440 
442 
1799 035444 
035444 
18 
1801 
1802 
1803 
1804 035446 
805 
1806 035446 
1807 


So 
WW 
w 
™ 
w 
rs 


5460 
035466 
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tt et ek ed ed ed ed ed od 
WONAOULWN—O 
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Ww 
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ot es ss et SS ot SS Ss ot 
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Nm 
=] 
Ww 
wi 
wi 
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0 
1823 035544 
1824 035550 
035550 
1826 
1827 035552 
1828 035556 
1829 035560 
1830 035564 
1831 035570 
1832 035600 
1833 035602 
1834 604 
1835 035604 
604 
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MACRO M1113 25-MAY-82 09:19 PAGE 100-4 


1: VERIFY EXTENDED FEATURES TEST 


037162 
015474 


104406 


012737 


010037 
010465 
004737 


103407 
010001 


016501 
010102 
042702 
052702 


020102 
001404 


104456 
000 


000001 


040170 
000016 
002312 


040202 
000000 
016250 


002222 


000002 


000016 
000006 


002312 
002312 


035454 





002312 


000006 


000007 


270$: 


500s: 
520s: 
$25$: 


342$: 


352$: 


360$: 


CKLOOP 


SEQ 0168 
«WORD TI6LEN 
«WORD EXPREC 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


(* Verify Function Reject when Message Buffer 21-19 are non-zero *) 
Write to TSSR register to soft initialize the controller 


MOV 


MOV RO, TI6DATA+2 
MO R4,TSDB 


MOV 
-REPT 
ASL RO 
-ENDR 
Vv 
JSR PC 
FORCERROR 
BCS 35 
OV RO,R1 
NEXT. ERRNO 
ERRDF 


INC FATFLG 
CKLOOP 


MOV 

MOV R1,R 

BIC #TERCLS,R2 
BIS aT 
FORCERROR 

CMP R1 

BEQ 366s 


NEXT 


CKLOOP 


INC 


CMP DATA,#7 
BHI 370$ 


JMP 325$ 
END-REPEAT 


#1,DATA 
DO a WRITE CHARACTERISTICS with 


MOV #T16PACKET ,R4 
MOV #14. ,PKBCNT(R4) 
ATA,RO 


ERRNO, T16SSR,PKTSSR 


SREJ 


- ERRNO 
ERRHRD ERRNO, TIGREJ,PKTSSR 


FORCEXIT 
DATA 


REPEAT FOR MESSAGE BUFFER Meese OM at <21:19> FROM 0 T 


T BITS<21:19>= bor 
a message address bit<21:19> non-zero 


4 THE ADDRESS OF COMMAND PACKET 
2 STORE aT bata PACKET SIZE 

GET TEST DAT 

sSHIFT INTO BITS 21:19 


sSTORE BUFFER ADDRESS BITS 21:19 
2SET ys PACKET ADDRESS TO EXECUTE 
;WAIT FOR SSR 


; ;aap FORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 


DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
° 510 
-WORD T16SSR 
-WORD PKTSSR 
zSET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG set 
TRAP CSCLP1 


If TSSR termination code NOT= Function Reject Then Print E: ror 
TSSR(RS),R1 ;GET RECV TSSR 


ZCLEAR TC<2:0> E 
sSET EXPD TC<2: ee FUNCTION a 

2 @adF ORCE ERROR IF FORCER=1 
sEXPD EQUAL RECV? 
BR IF YES 


DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERHRD 
eWORD 511 
eWORD TI6REJ 
-WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3GET NEXT TST PATTERN 
e ALi A? 
:BR IF 


YES 
D0 ANOTHER TEST PATTERN 


N 13 
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TEST 5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST SEQ 0169 
1843 035646 370$: 
1844 035646 ENDSUB s//I111T11111 END SUBTEST ////////47/ 
035646 L10054: 
’ 035646 104403 TRAP CSESUB 
1846 035650 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
1847 035654 oar ees BEQ 460$ BRANCH IF NOT 
1848 035656 004737 017202 JSR PC ,CKDROP :TRY TO DROP THE UNIT 
1849 035662 460$: 
1850 
1851 
1852 
1853 
1854 


B 14 
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-SBTTL TEST 5: SUBTEST 2: VERIFY TIMERS A,B 


once 
co 
BAR 
on 


++ 
3; TEST 5S: SUBTEST 2: 
SUBTEST DESCRIPTION: 


This subtest verifies that timers A,B can be reset 
and that Timer A is twice the frequency of Timer 8B. 
Timer A has a period of 25 microseconds and Timer 8B 
has a gorse of 50 microseconds. The timers are 
checked at 1, 28, 53, and 78 micoseconds. 


TEST STEPS: 


SSeERRREER ERG 


a to TSSR eptsver to soft initialize the bn tiaaeaed 


— 
oo 
“J 
w 
Be Se Ge Se Se Ge Fe Ge Ge Ge Ge Se Se Se Be Se Be Se Se Se Be Ge Be Se Be Se Be Be Be Se 
o 
° 


1873 E CHARACTERISTICS to setup a Messa oge Bu 
1874 (* verity Timers A,B after RESET TIMER with 0 microsecond delay *) 
a Write Control RESET TIMER with 1 microsecond delay 

1876 Do a Write Subsystem READ STATUS 

1877 If Timer A NOT= 0 Then Print Error 

1878 If Timer B NOT= 0 Then Print Error 

1879 (* Verify Timers A,B after RESET TIMER with 28 microsecond delay *) 

1880 Do a Write Control RESET TIMER with 28 microsecond delay 

1881 If Timer A NOT= 1 Then Print Error 

1882 If Timer 8 NOT= 1 Then Print Error 

1883 Do a Write Control RESET TIMER with 53 microsecond delay 

1884 If Timer A NOT= 0 Then Print Error 

1885 If Timer B NOT= 1 Then Print Error 

1886 Do a Write Control RESET TIMER with 78 microsecond delay 

1887 If Timer A NOT= 1 Then Print Error 

1 If Timer B NOT= 0 Then Print Error 

1890 035662 BGNSUB s//11411114/1 BEGIN SUBTEST ////////4/ 
035662 15.2: 
035662 104402 . TRAP C$8SU8 

1891 . Write to TSSR register to soft initialize the controller 

1892 035664 5s: 

1893 035664 004737 015774 JSR PC, SOFINIT sWRITE TO TSsR To My oy INITIALIZE 

1894 035670 103405 BCS 10$ 7BR IF SOFT INIT OKAY 

1895 035672 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

1896 035674 ERRDF ERRNO, SFIERR,SF IMSG :DEVICE FATAL DURING INIT 
035674 104455 TRAP CSERDF 
035676 000777 -WORD 511 
035700 003652 -WORD SFIERR 
035702 012034 -WORD SFIMSG 

1897 . Do WRITE CHARACTERISTICS to sete. 4 oeeee ope & 

1898 035704 004737 040010 10$: JSR PC, TIGREST REST ORE SCRET ‘Deraus 

1899 035710 005037 002222 tiR FATFLG [CLEAR FATAL ERROR FLAG 

1900 035714 012704 040170 MOV PTIGPACKET, R4 :GET THE ADDRESS OF COMMAND PACKET 

1901 035720 012764 000010 000006 MOV #8. ,PKBCNT(R4) ZMESSAGE PACKET SIZE NO EXTEND 

1902 035726 004737 010662 JSR PC, WRICHR WRITE CHARACTERISTICS COMMAND 

1903 035732 FORCERROR 12$ gBeor once ERROR IF FORCER=1 

1904 035746 103407 BCS 15$ 7BR IF CARRY SET (GOOD RETURN) 

1905 035750 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

1906 035752 NEXT. ERRNO 





crc 
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TEST 5S: SUBTEST 2: VERIFY TIMERS A,B SEQ 0171 
1907 035752 12$: ERRDF  ERRNO,TI6SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035752 104455 TRAP CSERDF 
035754 001000 «WORD 512 
035756 036712 -WORD T16SSR 
035760 012046 -WORD PKTSSR 
1908 035762 005237 002222 INC FATFLG +78 FATAL ERROR FLAG 
1909 035766 15$: CKLOOP OOP ON ERROR, IF FLAG 4 
+10 035766 104406 TRAP CS$CLP1 
1911 : (* Verify Timers A,B after RESET TIMER with 1 microsecond delay *) 
1912 : Do a Write Control RESET TIMER with 1 mrerosccens delay 
1913 035770 012700 000001 MOV #MS.RSD,RO sRESET TIMER COMMAND 
1914 035774 013701 036632 MOV T16D01,R1 :1M MICROSECOND DELAY 
1915 036000 004737 040122 JSR PC, T16WMISC sSETUP T16PK2 COMMAND PACKET 
1916 036004 012704 040240 MOV #TI6PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACK ET 
1917 036010 010465 000000 MOV R4, TSDB(RS) sSET THE ranel a TO EXECUTE 
1918 036014 016336 JSR PC,CHKTSSR SWAIT FOR SSR TO SET 
1919 036020 FORCERROR 32$ s@aDFOR RCE ERROR IF Opes 
1920 036034 103407 BCS 40$ zBR IF CARRY SET (GOOD RETURN 
1921 036036 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1922 036040 NEXT. ERRNO 
1923 036040 32$: ERRDF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
036040 104455 TRAP CSERDF 
036042 001001 eWORD 513 
036044 036747 -WORD T162SSR 
036046 012046 WORD PKTSSR 
1924 036050 005237 002222 INC FATFLG zSET FATAL ERROR FLAG 
1925 036054 40$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
036054 104406 TRAP CSCLP1 
1926 3 If Timer A NOT= 0 Then Print Error 
1927 3 If Timer 8 NOT= 0 Then Print Error 
1928 036056 005002 CLR R2 zs INIT EXPD 
1929 036060 042702 000010 BIC #S2.ATIM,R2 TIMER A tee 
1930 036064 042702 000004 BIC #S2.BTIM.R2 TIMER B ExPD=0 
1931 036070 012700 040232 MOV #T1GBF STA, RO GET RECV READ STATUS 
1932 036074 016001 000002 MOV R1 GET RECV 
1933 036100 042701 177763 BIC SsCeSS ATIA!S2 BTID RI 3 SAVE TIMER. } B RECV ONLY 
34 0 FORCERROR 72$,,NOTSSR 
CMP R2,R1 SEXPD EQUAL RECV? 
BEQ oo [BR IF YES 


NEXT.ERR 
72$: ERRHRD ERRNO, T16T01, TIMEXP sREPORT ERROR 


«WORD 514 
“WORD 116101 
“WORD TIMEXP 
80$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
: Do a Write Control RESET TIMER with 28 microsecond delay 
V #MS.RSD,RO ZRESET TIMER COMMAND 
036634 MOV T16D28,R1 328 MI CROSECOND DELAY 
040122 JSR PC, TI6WMISC ZSETUP T16PK2 C 
040240 MOV #TI6PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV Rs TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC. CHKTSSR WAIT FOR SSR TO S 


FORCERROR 112$ s@@DFORCE ERROR IF FORCER=1 





1949 036176 
1o39 4 


1970 

1971 036274 
1972 036300 
1973 036304 
1974 036310 
1975 036314 
1976 320 
1977 036324 
1978 340 


TSVS = HARDWARE TESTS 
TEST 5: SUBTEST 2: 


163407 
010001 


016001 
042701 
020201 
001404 


104456 
001 


004 
037510 
015552 


104406 
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VERIFY TIMERS A,B 


002222 


000010 
000004 
040232 
00000 

177763 


000001 
036636 
040122 
040240 
016336 


002222 


112$: 


172$: 


2128: 


BCS 120$ 

MOV RO,R1 

NEXT .ERRNO 

ERRDF ERRNO, T162SSR,PKTSSR 


INC FATFLG 
LOOP 


CK 
If Timer A NOT= 1 

If Timer B NOT= 1 

CLR R2 

BIS #S2.ATIM,R2 

BIS #S2.BTIM.R2 

MOV #T16BF STA,RO 

MOV 2(RO) 

BIC #°C<S2.ATIM!S2.BTIM>,R1 : 


FORCERROR 172$,NOTSSR 
R2.R1 
BEQ pices 


NEXT. ERRNO 
ERRHRD ERRNO,1T16T28,TIMEXP 


CKLOOP 


sBR IF CARRY SET (GOOD RETURN) 
zSAVE CONTENTS OF TSSR 


DEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 
WORD 515 
«WORD T162SSR 
«WORD PKTSSR 


:SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Then Print Error 
Then Print Error 


MER 8 EXPD= 
3GET RECV — Si ATUS 
GET RECV 
2 SAV vE TIMER. hs B RECV ONLY 
ZEXPD EQUAL RECV? 
BR IF YES 


REPORT ERROR 
TRAP CSERHRD 
-WORD 516 
WORD 116728 
«WORD TIMEXP 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


pe. a Write Control RESET TIMER with 53 srerecgcend delay 
aM 0 sRESET TIMER COMMAND 


MOV R4, TSpB CRS) 
JSR ?C,CHKTSSR 
ERROR 1 


FORC 
a 
RO,R1 
NEXT - ERRNO 
ERRDF ERRNO,T162SSR,PKTSSR 


INC FATFLG 
oop 


CKL 

If Timer A NOT= 0 

If Timer B NOT= 1 
CLR R2 

BIC #S2. ah ay R2 
BIS #S2.BTIM,R2 
MOV aiidar sta, RO 
MOV 2(RO)R 


353 er Lh ae DELAY 

ETUP T16PK2 COMMAND PACKET 
2GET WRITE SUBSYSTEM COMMAND PACKET 
iT THE “ear TO EXECUTE 


T FOR SSR 
s@@DFORCE ERROR IF Osa, 
tr IF CARRY rons oo RETURN 


SAVE Cour 


DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
WORD 517 
WORD 1162SSR 
-WORD PKTSSR 
3SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG HW 
TRAP CSCLP1 


Then Print Error 
Then Print Error 


SEQ 0172 


BRERERY 
RRRVOO 


036430 


te 

2010 036516 
2011 036522 
036522 
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042701 
020201 
001404 
104456 
001006 
037610 
015552 


015552 
104406 


104403 


005737 
001402 
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177763 


000001 
036640 
040122 
040240 
016336 


002222 


000010 
000004 
040232 
00 
177763 


002222 


272$: 


312$: 


372$: 


380$: 





BIC #*°C<S2.ATIM!S2.BTIM>,R1 ;SAVE TIMFR A:B RECV ONLY 
$.NOTSSR ; 


FORCERROR 272$, : 

CMP R2,R1 SEXPD EQUAL RECV? 

BEQ ie antes ‘BR IF YES 

ERRHRD ERRNO, 116153, TIMEXP ZREPORT ERROR i 
«WORD 
~ WORD 


CKLOOP ;LOOP ON ERROR, IF FLAG SET 
Do a Write Control RESET TIMER with 78 microsecond delay 
MO t dl 0 : T TIMER C 


CSERHRD 
518 
T16T53 
TIMEXP 


CSCLP1 


Vv S.RSD,R : 

MOV T16D78,R1 378 MICROSECOND DELAY 

JSR PC, T16WMISC ‘SETUP T16PK2 C PACKET 

MOV #TI6PK2,RS [GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR PC,CHKTSSR “WAIT pg SSR TO SET 

FORCERROR 312$ FORCE ERROR IF FORCER=1 

BCS 320$ BR IF Y SET (GOOD RETURN) 

MOV RO,R1 SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
eWORD 519 
-WORD T162SSR 

Fad PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP LOOP ON ERROR, IF FLAG ai. con on 

If Timer A NOT= 1 Then Print Error 

If Timer 8 NOT= 0 Then Print Error 

CLR R2 sINIT EXPD 

BIS #S2.ATIM,R2 sTIMER A food 

BIC #52.BT TIM,R2 sTIMER B EXxPD=0 

MOV aridarsta, RO 2GET HU READ STATUS 

MOV yt 7GET RECV BYTE 2 

BIC att ATIM!S2.BTIM>,R1 2 SAVE TIMER A:B RECV ONLY 

FORCERROR 372$.NOTSSR 

CMP R2,R TEXPD EQUAL RECV? 

BEQ 380s [BR IF YES 

NEXT. ERRNO 

ERRHRD ERRNO,1161T78,TIMEXP REPORT ERROR 
TRAP CSERHRD 
-WORD 520 
-WORD T16T78 
-WORD TIMEXP 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

ENDSUB 


TRAP 


TST FATFLG sANY FATAL ERRCRS ? 
BEQ 460$ :BRANCH IF NOT 





S/IAAIITTTTTT END SUBTEST ////////4/ 
110055: 


CSESUB 


SEQ 0173 | 
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2031 036610 0064737 017202 
2032 036614 004737 016456 
103002 
000137 034602 


465$: 


460$: 


JSR PC, CKDROP 
JSR PC, TSTLOOP 
B 465$ 


JMP T16LO0P 


EXIT TST 


F 14 


SAILS TTTTT EXIT TEST SASASSAS4S 
TRAP 


ay 


SEQ 0174 


zTRY TO DROP THE UNIT 
; SHOU a WE DO ITERATIONS? 


F NO 
:LOOP UNTIL ITERATIONS DONE 


CSEX 
«WORD L 


| TSVS =_HARDWARE TESTS MACRO M1113 
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204 
2044 
2045 036632 000001 
2046 036634 000040 
2047 036636 000076 
2048 036640 000142 
2049 
2050 
2051 
2052 
2053 036642 105 170 1 
2054 036712 127 122 1 
2055 036747 127 122 1 
2056 037013 127 122 1 
03 102 165 1 
2058 037162 104 141 1 
2059 037274 124 123 1 
2060 037411 124 151 1 
2061 037510 124 151 1 
2062 037610 124 151 1 
2063 037710 124 151 1 
2064 
2065 
2066 
2067 
2068 
2069 040010 
04 2700 040170 
2071 040014 012720 1 
04 012720 040200 
2073 040024 5020 
2074 040026 012720 000012 
2075 040032 012720 040212 
2076 040036 5020 
2077 040040 012720 000024 
2078 040044 005020 
2079 040046 005010 
2080 040050 005037 040212 
2081 040054 000207 
2082 
2083 
2084 
2085 
2086 040056 
2087 040056 
2088 040062 012701 040212 
2089 040066 012702 000026 
2090 040072 105021 
2091 040074 005302 
son 040076 003375 
2093 040100 000207 
2094 
2095 
2096 
2097 
2098 040102 


| 
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ot 
sLOCAL STORAGE FOR THIS TEST 


116001: .WORD 1 

116028: .WORD 40 

116053: -WORD 76 
6078: «WORD 142 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 


*Timer A,B Incorrect after Reset Timer with 


SEQ 0175 


31 

:28 

353 
78 


MICROSECOND DELAY (.8 MICROS PER) 
MICROSECOND 
MICROSECOND 


"Extended 41 a Bee and Timers A,B‘ 
aile 
SUBSYSTEM (Write Misc) Failed’ 


*Bus Address Register (TSBA) Incorrect after Write i. Wh 
"Data Field Length in Message Buffer Incorrect after Write Characteristics’ 
eject Not Returned When Non-Existent Buffer Address Specifie 


28 microsecond Delay’ 


I 

I 

I 

I 

; 

: ‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay’ 
‘ ‘Timer A,B Incorrect after Reset Timer with 53 microsecond Delay’ 
N 


‘Timer A,B Incorrect after Reset Timer with 78 microsecond Delay’ 


PACKET ADDRESS 
WRITE CHARACTERISTICS WITH ACK 
OF C DATA BLOCK 


sMESSAGE BUFFER ADDRESS 

sCLEAR EXTENDED BUFFER ADDRESS 
sLENGTH OF MESSAGE BUFFER 

sCLEAR ESS.ENB.EAI.ERI 

CLEAR EXTENDED FEATURES WORD 

sCLEAR 1ST LOCATION IN MESSAGE BUFFER 


zSAVE R1-RS UNTIL NEXT RETURN 
2GET MESSAGE BUFFER ADDRESS 
sSIZE_OF MESSAGE BUFFER IN BYTES 
HS ry A BYTE 


64 TSTI6ID: eASCIZ 
11 TI6SSR: .ASCIZ ‘WRITE CHARACTERISTICS 
11 TI62SSR:.ASCIZ ‘WRITE 
11 TI63SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
63 TI6TSBA:.ASCIZ 
64 TI6LEN:.ASCI 
23 TI6REJ:.ASCI *TSSR Function 
55 116701:.ASCI 
55 116728:.ASCI 
55 116753:.ASCI 
55 1161778:.ASCI 
EVE 
3¢ 
; SET DEFAULT PACKET 
TIGREST: 
MOV #TI6PACKET,RO 
MOV #100004, (RO)+ 
POV #TI6DATA, (RO) + 
CLR (RO) + 
MOV #10. ,(RO)+ 
MOV #T1I6BFR, (RO)+ 
CLR (RO) + 
MOV #20. ,(RO)* 
CLR (RO)+ 
CLR (RO) 
CLR TI6BFR 
RTS Cc 
Z¢ 
: CLEAR MESSAGE BUFFER 
TI6CLRBUF : 
SAVREG 
MOV #T16BFR,R1 
MOV #TI6BEND-TI6BFR,R2 
10$: CLRB (R1)¢ 
DEC R2 
BGT 10$ 
RTS PC 


£¢@ 
3 SETUP TI6PK2 PACKET FOR READ STATUS 
TI6SRD: 


:BR_IF NO 
2RETURN 
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3 


040102 


FER 
ee 
Oe 


PROPIPOPIPINPPYINIPININI POPUP NINIPINI NINN NON TPUNON 
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VERIFY TIMERS A,B 


040056 
040250 
000005 


040056 
040250 
000010 


os 0228 
000010 
000200 


JSR PC A sa 


MOV aTi6d 

MOVB 3s #Pw. Rostatus, (RO)+ 
CLRB = (RO) 

RTS PC 


i+ 
: SETUP TI6PK2 PACKET FOR WRITE MISC. 


CLEAR MESSAGE BUFFER 
WRITE SUBSYSTEM DATA BUFFER 
; STORE mae COMMAND IN 8SELO 


: INPUT: 
: RO CONTAINS WRITE MISC FUNCTION CODE (BSEL1) 
: R1 CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 
T16WMIS 
SAVREG ZSAVE R1-R5 UNITL NEXT RETURN 
JSR PC, TI6CLRBUF 3CL EAR MESSAGE BUFFER 
MOV #Ti6DT2,R2 WRITE SUBSYSTEM DATA BUFF 
MOVE = #PW. wMISC, (R2)+ 75 ORE WRITE MISCELLANEOUS IN BSELO 
MOVB RO, (R2)+ ZSTORE WRITE MISC CODE 
MOVB = R1, (R2) TSTORE DELAY (RESET TIMER) IN BSEL2 
RTS PC :RETURN 
5+ 
; SETUP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
TIOSEXT: 
MOV #716DT2,R0 ZWRITE SUBSYSTEM DATA BUFFER 
MOVE #PW.WMZSC,(RO)+ ZSTORE WRITE MISCELLANEOUS IN BSELO 
nove EXT, (RO) STORE INVERT EXTENDED FEATURES IN BSEL1 


-=<.+10>8177770 
[WRITE CHARACTERISTICS COMMAND PACKET 
TI6PACKET : 


-WORD 100004 

eWORD TI6DATA 

-WORD 0 

-WORD 10. 
TI6DATA: 

-WORD TI6BFR 

eWORD 0 

eWORD 20. 

-WORD 0 

-WORD 0 


MESSAGE BUFFER 
T16BFR: 


-WORD 0 
- WORD 0 


2 COMMAND PACKET FOR TEST 

WRITE CHARACTERISTICS COMMAND, WITH ACK 
ADDRESS OF CHARACTERISTICS BLOCK 
MESSAGE PACKET SIZE 


s CHARACTERISTICS DATA BOE 
ADDRESS OF MESSAGE BUFFE 


sLENGTH OF MESSAGE BUFFER 


7ESS.ENB,EAI.ERI 
SEXTENDED FEATURES WORD 


2BEGIN pe SSAee BUFFER 
MESSAGE TYPE 
sDATA FIELD LENGTH 


SEQ 0176 


EE 


11 
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TEST 5S: SUBTEST 2: VERIFY TIMERS A,B SEQ 0177 
2158 040216 000000 WORD 0 RBPCR 
2159 040220 000000 -WORD 0 zxXSTO 
2160 040222 000000 -WORD 0 2xsi1 
2161 040224 000000 -WORD 0 ixSTe 
$i6¢ 040226 000000 «WORD 0 2XST 
216 000000 WORD 0 iXST4 hea PRESENT FOR WRITE SUBSYSTEM 
2164 040232 TI6BFSTA: .BLKB 6. READ STATUS AND WRITE FIFO BUFFER 
$16? 040240 T16BEND: SEND OF MESSAGE BUFFER 
444 sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
2172 040240 T16PK2: 
2173 040240 ° P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
2174 040242 040250 WORD T16DT2 LOW ADDRESS OF DATA BLOCK 
2175 040244 -WORD 0 sHIGH ADDRESS OF DATA BLOCK 
$176 040246 000012 WORD 10. MINIMUM MESSAGE PACKET SIZE 
2178 040250 T16DT2: zDATA BLOCK 
2179 040250 000 -BYTE 0 sBSELO 
2180 040251 000 -BY 0 sBSEL1 
2181 040252 000000 -WOR 0 : 
$ic¢ 040254 -BLKB 64. WRITE FIFO DATA OUTPUT BUFFER 
2184 
2185 040354 ENDTST 
040354 L10053: 


040354 104401 TRAP CSETST 
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SEQ 0178 


2188 ~SBTTL TEST 6: FIFO EXERCISER 
2189 p++ 
stay 3; TEST DESCRIPTION: 
$138 3 This test uses the Write Subsystem Memory command to 
219 ; verify the controller's FIFO and associated status and 
2194 3 control logic. 
2195 : 
2196 ; TEST STEPS: 
2197 : 
2198 ; REPEAT FOR LOOPCNT 
2199 $ BEGIN ee. 
2200 3 Do Subtest 1 - FIFO Initialize status test 
2201 3 Do Subtest 2 = FIFO Write Single Byte test 
2202 $ Do Subtest 3 - FIFO Write Multiple Bytes test 
2203 : Do Subtest 4 - FIFO Verify ILW Status test 
2204 : Do Subtest 5 - FIFO Input Ready test 
2205 : Do Subtest 6 - FIFO Verify Reset FIFO test 
2206 3 END 
2207 = 
22 
22 
2210 040356 BGNTST 
040356 Té6:: 
2215 040356 012700 046606 MOV #TST171ID,RO sASCII MESSAGE TO IDENTIFY TEST 
221 0 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
0 000012 002216 MOV #10. ,LOOPCNT [PERFORM 10 ITERATIONS 
JSR PC .KTOFF sSHUT OFF MEMORY MANAGEMENT 
CLR KTENABLE sREALLY SHUT DOWN KT-11 





2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 040404 
040404 
040404 
2251 
2252 
2253 040406 
2254 040406 
2255 040412 
2256 040414 
2257 040416 
040416 
0420 
040422 
040424 
2258 
2259 040426 
2260 040432 
2261 040436 
262 040442 
2263 040456 
040460 
2265 040462 
66 040462 
0404 
040464 
040466 
040470 
2267 040472 
2268 040476 
040476 
2269 
2270 
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015774 


002222 


~-SBTTL TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 


+4 
; TEST 6: SUBTEST 1: 


: SUBTEST DESCRIPTION: 


és: 


ios: 


42$: 


If Data In Miss NOT=0 
END 


This test verifies, by using the Read Status select code, 
that the FIFO status is in the correct initial state after 
the controller is initialized (Input Ready TRUE, 

Output Ready and Data In Miss FALSE). These status 

signals are checked by the controller's self-test 
sequence, so this subtest is actually more of a partial 
check of the Read Status function than the FIFO status. 


TEST STEPS: 
BEGI 


A 

Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer 
Do a WRITE SUBSYSTEM Read Status 

If Input Ready NOT=1 Then Print Error 

If Output Ready NOT=0 Then Print Error 

Then Print Error 


BGNSUB 


TRAP 
Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT 
BCS 10$ BR 


MOV RO,R1 zSAVE CONTENTS OF TSSR 

ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING a) 
- WORD 
- WORD 
WORD 


Do a WRITE CHARACTERISTICS to setup a message buffer 
FATFLG CLEAR 


FATAL ERROR FLAG 
MOV #T17PACKET,R4 GET THE ADDRESS 
JSR PC ,WRICHR 


H D0 WRITE CHARACTERISTICS C 
FORCERROR 42$ 3 @aDF ORC 
50$ IF CARRY SET (GOOD 


BCS 3BR 

MOV RO.R1 sSAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,T17SSR,PKTSSR DEVICE FATAL SSR PAGLED TO st 
- WORD 
- WORD 
WORD 


3SET FATAL ERROR FLAG 


INC FATFLG 
CKLOOP LOOP ON ERROR, IF FLAG er 


Do a Write Subsystem READ STATUS 


s/AIITTTITTTT BEGIN SUBTEST ////////// 


C$BSUB 


sWRITE TO TSSR TO SOFT INITIALIZE 
T INIT OKAY 


CSERDF 
600 


SFIERR 
SF IMSG 


OF COMMAND PACKET 
OMMAND 
E ERROR IF FORCER=1 
RETURN) 


CSERDF 
601 


T17SSR 
PKTSSR 


CSCLP1 


SEQ 0179 


—s 
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TSVS = HARDWARE TESTS MACRO M1113 25-MAY-82 09:19 PAGE 105-1 


TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST SEQ 0180 


2271 040500 004737 047764 JSR PC,T17SRD sSETUP PACKET ave 1h 2 Less 

2272 040504 012704 050350 MOV #T17PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 

2273 040510 010465 000000 MOV R4, TSDB(RS) 3SET THE PACKET ADDRESS TO EXECUTE 

2274 040514 737 916336 JSR PC, CHKTSSR sWAIT og" SSR TO SET 

2275 040520 FORC josre ORCE ERROR IF — 

2276 040534 103407 BCS 7 sBR IF Y SET (GOOD RETURN) 

2277 040536 010001 MOV aa 3; SAVE CONTENTS OF TSSR 

2278 040540 NEXT.ERR 

2279 040540 62$: ERRDF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040540 104455 TRAP CSERDF 
040542 001132 «WORD 602 
040544 046726 «WORD 1173SSR 
040546 012046 «WORD PKTSSR 

2280 040550 005237 002222 INC FATFLG SET FATAL ERROR FLAG 

2281 040554 70$: CKLOOP ;LOOP ON ERROR, IF FLAG = 
040554 104406 TRAP CSCLP1 

22 8 Set WORDS 0-7 of oud message buffer = to recv since not testing 

2283 040556 737 050146 JSR PC, TI7SETEXP sSET WORDS O-7 EXPD=RECV 

2284 0405 012701 046402 HOV #TI7ZEXSTA, RI :GET EXPECTED READ STATUS 

2285 040566 012702 050242 MOV #717BFSTA.R2 ZGET RECV READ STATUS 

2286 040572 012221 MOV (R2)+,(R1)+ sSET EXPD WORD #8 = RECV TEMP 

2287 040574 011211 MOV (R2),(R1) sSET EXPD WORD #9 = RECV TEMP 

2288 0405 052711 000020 BIS #S2. INRDY, (R1) SET EXP INPUT READY= TRUE 

2289 04 042711 000040 BIC #S2. OUTRDY (R1) SET EXP OUTPUT READY= FALSE 

2 042711 000200 BIC #S2.DIM, (Ri) [SET EXP DATA IN MISS = FALSE 

229 3 If Input Ready NOT=1 then Print Error 

2292 3 If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 

2293 040612 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 

2294 040614 012701 050222 MOV #T17BFR,R1 LOW RECV ADDRESS FOR CKMSG2 

295 040620 012702 046362 MOV ATIZEXP, R? sEXPD ADDRESS 

2296 040624 012703 000024 MOV #20. -R3- SNUMBER OF y He TO COMPARE 

2297 040630 004737 011500 JSR PC, CKMSG2 3EXPD EQUAL RECV 

2298 040634 FORCERROR 82$,NOTSSR 

2299 040644 103404 BCS 90 tBR IF YES 

2300 040646 NEXT. ERRNO 

2301 040646 82$: ERRHRD ERRNO,T171CMP,MSGSTAT sREPORT ERROR 
040646 104456 TRAP CSERHRD 
040650 001133 -WORD 603 
040652 047145 eWORD 1171CMP 
040654 012350 -WORD MSGSTAT 

2302 040656 90$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

2303 040656 104406 TRAP CSCLP1 

2304 040660 ENDSUB SAIS 1I1I114 END SUBTEST /////////7/ 
040660 10057: 

2305 040660 104403 TRAP CSESUB 

2306 040662 005737 002222 TST FATFLG sANY FATAL ERRORS ? 

2307 040666 001402 BEQ 160$ [BRANCH IF NOT 

2308 040670 004737 017202 JSR PC, CKDROP sTRY TO DROP THE UNIT 

§ 09 040674 1608: 
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TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST SEQ 0181 


sai¢ -SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
2314 p++ 
sel? 3 TEST 6: SUBTEST 2: 
self 3 SUBTEST DESCRIPTION: 
2319 : This subtest verifies the ability of the FIFO to correctly 
2320 3 pass_a single data byte from input to output. For each 
2321 3 of 256 data values (0-377 octal) the following is done: 
2322 s 1. Initial FIFO status is checked 
2323 3 2. The Write FIFO function, specifying a count of 
2324 3 one — to be written is executed. 
2325 3 3. Read Status is executed and FIFO status is checked. 
2326 3 4. Read FIFO is executed and the data and final status 
2327 3 is checked. 
2328 3 
2329 ; TEST STEPS: 
2330 3 
2331 ; BEGIN 
2332 : Write to TSSR to soft initialize 
2333 ; Do a WRITE CHARACTERISTICS to setup a message buffer 
2334 : Do a Write Subsystem READ STATUS 
2335 : If Input Ready NOT=1 Then Print Error 
2336 g If Output Ready NOT=0 Then Print Error 
Siee : If Data In Miss NOT=0 Then Print Error 
2339 ; REPEAT FOR DATA FROM O TO 377 OCTAL 
2340 3 BEGIN 
2341 3 Do a Write Subsystem WRITE NPR to set tape direction out 
2542 ; Do a Write Subsystem WRITE FIFO with byte count equal to 1 
2343 3 Do a Write Subsystem READ STATUS 
2344 s If Input Ready NOT=1 Then Print Error 
2345 3 If Output Ready NOT=1 Then Print Error 
2346 : If Data In Miss NOT=0 Then Print Error 
2347 3 Do Write Subsystem READ FIFO with byte count equal to 1 
2348 5 If Data read from FIFO NOT= to Data sent Then Print Error 
2349 : Do a Write Subsystem READ STATUS 
2350 3 If Input Ready NOT=1 Then Print Error 
2351 3 If Output Ready NOT=0 Then Print Error 
2352 3 If Data In Miss NOT=0 Then Print Error 
2353 3 END 
si he. 
2356 ose BGNSUB 3///1111111// BEGIN SUBTEST ////////47 
2357 040674 104402 TRAP C$BSUB 
2358 . Write to TSSR register to soft initialize the controller 
2359 040676 5s: 
76 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
2361 040702 103405 BCS 108 ‘BR IF SOFT INIT OKAY 
2 040794 010001 sSAVE CONTENTS OF TSSR 


MOV RO,R1 
2363 040706 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
040706 104455 TRAP CSERDF 
040710 001133 -WORD 603 
040712 003652 «WORD SFIERR 
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MACRO M1113 25-MAY-82 09:19 PAGE 106-1 
FIFO WRITE SINGLE BYTE TEST 


Do a WRITE CHARACTERISTICS to setup a message buffer 
CLR FATFL ic P 


MOV #TIPPACKET, R4 
JSR PC, ,WRTCHR 
FORCERROR 

ae 50$ 


A. 5 R1 


NEXT NO 
ERRNO, T17SSR,PKTSSR 


-ERR 
ERRDF 


INC FATFLG 
CKLOOP 


Do a Write pieereten READ STATUS 
R PC,T 


JS 17SRD 

MOV PK2,R4 

MOV R4, TSDB(RS) 

JSR C,CHKTSSR 

FORC 62 

BCS 

MOV RI 

NEXT. ERRNO 

ERRDF ERRNO,T173SSR,PKTSSR 


INC FATFLG 
CKLOOP 


PC,T17SE 
MOV WTiTEXSTAC R1 


1) 
BIS #S2. INRDY, (R1) 
#52. QUTRDY, (R1) 


c 
C #S2.DIM, (Ri) 


B! 
BI 
HA Input Ready NOT=1 then Print Error 
C 


L 
GET THE ADDRESS OF 
;DO WR 


zSET EXPD 


- WORD 
LEAR FATA 


SF IMSG 


CE ERROR IF FORCER=1 
RETURN) 


:@aDFOR 
sBR IF CARRY SET (GOOD 
SAVE CONTENTS OF TSSR 


DEVICE FATAL SSR FAILED TO SET 


sSET FATAL ERROR FLAG 
:LOOP ON ERROR, IF FLAG a 


SETUP PACKET ave READ See Pa 
GET WRITE SUBSYSTEM 


COMMAND P 
3SET > PACKET YADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 


CSERDF 
604 

T17SSR 
PKTSSR 
CSCLP1 


CKET 


E ERROR IF — 


: @aDF ORC 
BR IF CARRY SET (GOOD RETURN) 
zSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


- WORD 
«WORD 
WORD 


:SET FATAL ERROR FLAG —~ 
[LOOP ON ERROR, IF FLAG SET 


Set WORDS 0-7 of Ri. message buffer = to recv since not testing 
JSR SET WORD PD=RECV 


S$ 0-7 EX 
7GET EXPECTED et STATUS 
3GET BM READ STATUS 

WORE #8 = RECV TEMP 
zSET EXPD WORD #9 = RECV TEMP 
SET EXP INPUT READY= TRUE 
SET EXP OUTPUT READY= FALSE 
SET EXP DATA IN MISS = FALSE 


if gus Reety NOT=0 or Data in mise NOT=0 Then Print Error 


MOV #T17BFR,R1 
MOV #TI7EXP,R2 
MOV #20., 
JSR PC, CKM 
FORCERROR 
BCS 
NEXT. ERR 

ERRHRD ERRNO, T171CMP ,MSGSTAT 


SG2 
82$.,NOTSSR 


LOW RECV ADDRESS F 
sEXPD ADDRE 
NUMBER OF ores TO COMPARE 


HIGH RECV aoe t _ CKMSG2 
CKMSG2 


sEXPD EQUAL RECV 

:aaD 

BR IF YES 

REPORT ERROR 
TRAP 
-WOR 
«WORD 


CSERDF 
605 

T173SSR 
PKTSSR 


CSCLP1 


CSERHRD 
606 
T171CMP 


041144 
2407 041146 
041146 


24 
24 
2410 041150 
2411 041156 
2412 
2413 041156 
2414 041162 
2415 041166 
2416 041172 
2417 041176 
2418 041202 
2419 041216 
2420 041220 
2421 041222 
2422 041222 
041222 
041224 
041226 
041230 
2423 041232 
2424 041236 
041236 
2425 
2426 041240 
2427 041244 
2428 041250 
2429 041254 
2430 041260 
2431 061264 
2432 041270 
2433 041304 
2434 041306 
2435 041310 
2436 041310 
041310 
041312 
041314 
041316 
2437 041320 
2438 041324 
041324 
2439 
2440 
2441 041326 
2442 041332 
2443 041336 
2444 041342 
2445 041346 
2446 041362 
2447 041364 
2448 041366 
2449 041366 
041366 
041370 
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FIFO WRITE SINGLE BYTE TEST SEQ 0183 
WORD MSGSTAT 
99$:  CKLOOP ZLOOP ON ERROR, IF FLAG SET 
TRAP  CSCLP1 
; Repeat for DATA from 0 to 377 
000000 002312 MOV #0,DATA GET FIRST DATA 
100$: [REPEAT LABEL 
$ Do a Write Subsystem WRITE NPR to set t direction out 
100 MOV #NP.OUT,RO :SET TAPE DIRECTION OUT 
50026 ‘ JSR PC,T17SNPR SETUP 11 OR 
050350 MOV #TI7PK2,RG ZGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) [SET THE PACKET oADbRESS TO EXECUTE 
016336 JSR PC, CHKTSSR ‘WAIT FOR O SET 
FORC SFORCE ERROR IF FORCER=1 
BCS :8R IF CARRY SET (GOOD RETURN) 
HOV : RO,R1 > SAVE CONTENTS OF TSSR 
102$: ERRDF ERRNO,T174SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 607 
.WORD 1174SSR 
.WORD PKTSSR 
002222 INC FATFLG :SET FATAL ERROR FLAG 
105$:  CKLOOP sLOOP GN ERROR, IF FLAG SET 
TRAP  CS$CLP1 
$ Do a Write Subsystem WRITE FIFO with byte count equal to 1 
000001 MOV #1,R0 WRITE 1 BYTE 
002312 MOV #DATA,R1 [FIFO WRITE DATA ADDRESS 
050052 JSR PC,T1/WF IF ZSETUP T17PK2 FOR WRITE FIFO 
050350 MOV #T17PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC. CHKTSSR WAIT FOR ask TO SET 
FORC 107$ ORCE ERROR IF FORCER=1 
acs 11 :8R IF ocr (GOOD RETURN) 
OV : RO,R1 > SAVE CONTENTS OF TSSR 
107$: ERRDF ERRNO,TI7SSSR,PKTSSR ;:DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. WORD 
.WORD T1175SSR 
-WORD PKTSSR 
002222 INC FATFLG zSET FATAL ERROR FLAG 
110$:  CKLOOP 3LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
3 Do a Write aoe stem READ STATUS 
0477 JSR PC.T r17s zSETUP PACKET FOR READ STAT US 
050350 Vv #TI7PK2.R4 [GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, Tspetns) sSeT THE PACKET ADDRESS TO EXECUTE 
016336 JSR PC. CHKTSSR WAIT FOR SSR TO SET 
FORCERROR FORCE ERROR IF FORCER=1 
acs 120$ 7BR IF CARRY SET (GOOD RETURN) 
MOV : RO,R1 > SAVE CONTENTS OF TSSR 
112$: ERRDF ERRNO,T173SSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


041372 
041374 
2450 041376 
2451 ed pes 


1402 
452 
2453 041404 
2454 041410 
2455 041414 
456 041420 
2457 041422 
2458 041424 
2459 041430 
2460 041434 
2461 
2462 


RNAS 


2484 


RK KRRRRRRERKK 


RSXS SRESRERLLSES 


oa 
— 
So 
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002222 


050146 
04640 

05024 

000020 
000040 
000200 
050222 
046362 


000024 
011500 


050106 
050350 
000000 
016336 


002222 


050146 
046402 
050242 
002312 


FIFO WRITE SINGLE BYTE TEST 


120$: 


132$: 


142$: 


INC FATFLG 
CKLOOP 


BI 
If Input Ready NOT=1 then Print Error 


If A mer’ Ready NOT=1 or Data 
C RO . 


LR 
MOV #T17BFR,R1 
MOV aTI7EXP, R2 


JSR PC. cKM KMSG2 
Beets 132$,NOTSSR 


NEXT. ERRNO 
ERRHRD ERRNO,1T173CMP,MSGSTAT 


CKLOOP 


«WORD 1173SSR 
«WORD PKTSSR 
SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 7 
TRAP CSCLP1 
buffer = to recy jn ol not testing 
sSET WORDS 0-7 EXPD=RECV 


GET EXPECTED READ STATUS 
:GET oe READ STATUS 


SET EXP DATA IN MISS = 0 


in Miss NOT=0 Then Print Error 
HIGH RECV ADDRESS FOR CKMSG2 
:LOw REC RECV I tae FOR CKMSG2 


TNUMBER. gfe TO COMPARE 

sEXPD EQUAL RECV 

BR IF YES 

REPORT ERROR 
TRAP CSERHRD 
-WORD 610 
WORD 1173CMP 
«WORD MSGSTAT 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


4 are eee READ FIFO with Ay. count equal t 


JSR PC Tia AE 
MOV #Ti7PK 


JSR PC, CHKTSSR 

FORCERROR 1 

BCS 150$ 

MOV RI 

NEXT. ERRNO 

ERRDF ERRNO,1T176SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Set WORDS 0-7 of pe message 
JSR PC, T17SET 

MOV #TiVEXSTA, R1 

MOV #T17BFSTA,R2 

MOV DATA, (R1)¢ 

MOV (R2),(R1) 


READ BYTE COUNT 
SETUP T17PK2 4H. FIFO 


STEM COMMAND PACKET 
:SeT THE PACKET ADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 
s@@DFORCE ERROR IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 

RAP Cc 


T SEROF 
- WORD 11 
WORD 1176SSR 
-WORD PKTSSR 
:SET FATAL ERROR F 
SLOOP ON ERROR, IF LAG Z. 
CSCLP1 


buffer = to My iF since not aeotina 
SET WORD PD=RECV 


EXPD= 
3GET EXPECTED READ STATUS 
2GET RECV READ a 
sar EXPD WORD #8 = T DAT 

EXPD WORD #9 = RECY (NOT TESTING) 


sSET 
If Data read from FIFO NOT= to Data sent Then Print Error 


SEQ 0184 








aad kd 
oo NO 
ee ed ed ed ed ed ed eed ed 
~“ ~“_ 
Nm 
N 


Mon 
Was 
kk ed ed ed ed dd 
NI N“ 
w 
o 


2536 042026 
2537 042026 
042026 


042030 
042032 
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05022 
046 


00002 
011500 


047764 
050350 
000000 


016336 


002222 


050146 
046402 
050242 


050222 
046362 


000024 
011500 


FIFO WRITE SINGLE BYTE TEST 


152$: 


162$: 


172$: 


The data is in WORD #8 of the weenoee at 
CLR RO 


RELY “ADDRESS FOR CKMSG2 
MOV #T17BFR,R1 


sLOW RECV ADDRESS FOR CKMSG2 
ADDRES 


MOV #TI7EXP,R2 ZEXPD $s 

MOV #18, ,R3_ sNUMBER OF BYTES | TO COMPARE 

JSR o CKMSG2 3EXPD EQUAL RECV? 

FORCERROR 152$,.NOTSSR 

BCS 1 BR IF YES 

NEXT. ERRNO 

ERRHRD ERRNO,T172CMP,MSGSUB REPORT ERROR 
TRAP CSERHRD 
-WORD 61 
-WORD 1172CMP 
-WORD MSGSUB 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


r a othe e supeysten READ STATUS 
sSETUP PACKET FOR Ay: STATUS 


MOV aTitPKe, R4 GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDB(RS) sSET_THE oy ADDRESS TO EXECUTE 

JSR PC; CHKTSSR ;WAIT FOR SSR TO SET 

FORCERROR 162$ s@@DFORCE ERROR IF FORCER=1 

BCS 170$ 3BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 2 SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,1T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 613 
-WORD 1173SSR 
-WORD PKTSSR 

INC FATFLG :SE7 FATAL ERROR FLAG 

CKLOOP LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Set WORDS 0-7 of eae message buffer = ll recv since eee testing 
JSR PC, TI7SETE sSET WORDS 0-7 EXPD=RECV 

MOV PTiTEXSTAS R1 [GET EXPECTED READ STATUS 

MOV #T17BFSTA,R2 GET RECV READ STATUS 

MOV (R2)+, (R154 ZSET EXPD WORD #8 = RECV TEMP 

MOV (R2), (R1) ° 

BIS #S2. INRDY, (R1) 

BIC #S2. OUTRDY (R1) E 

BIC #S2.D1M, (Ri) :SET EXP DATA IN MISS = 0 

If Input Ready NOT=1 then Print Error 

If gutout Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
CLR RO ny ha RECV ADDRESS FOR CKMSG2 

MOV #T17BFR,R1 mete Beeness FOR CKMSG2 


MOV #TI7EXP,R2 EXPO AD 

MOV #20., NUMBER OF BYTES | TO COMPARE 

JSR PC, CKMSG2 sEXPD EQUAL RECV? 

FORCERROR 172$,NOTSSR 

BCS 180$ TBR IF YES 

NEXT. ERRNO 

ERRHRD ERRNO,T174CMP,MSGSTAT  ;REPORT ERROR 
TRAP CSERHRD 
-WORD 614 
-WORD T174CMP 


SEQ 0185 


aay 
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042070 
2547 
2548 042072 


2551 042104 
2552 
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FIFO WRITE SINGLE BYTE TEST 


;LOOP ON ERROR, IF FLAG SET 





WORD MSGSTAT 
TRAP CSCLP1 


:aad 

GET NEXT TEST DATA 
sDONE 0 TO 377? 

:BR IF YES 

DO ANOTHER TEST PATTERN 


s/ISITIITTTTT END SUBTEST S///////47/ 
L10060: 


“ TRAP = C$ESUB 


7 ANY = 2 ERRORS ? 
ZBRANCH IF NOT 
TRY TO DROP THE UNIT 
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$33¢ -SBTTL TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 

2556 3+4 

$230 ; TEST 6: SUBTEST 3: 

$228 ; SUBTEST DESCRIPTION: 

2561 ; This subtest verifies the ability of the FIFO to correctly 

2562 3 gees a multiple data bytes from input to output. 

2563 3 he following sequence is done with various data patterns 

2564 : and byte counts from 2 to 64. 

2565 : 1. Initial FIFO status is checked 

2566 5 2. The Write FIFO function. 

2567 : 3. Read Status is executed and FIFO status is checked. 

2568 $ 4. Read FIFO is executed and the data and final status 

2569 s is checked. 

2570 3 

2571 : TEST STEPS: 

2572 3 

2573 ; BEGIN — : 

2574 : Write to TSSR to soft initialize 

2575 3 Do a WRITE CHARACTERISTICS to setup a message buffer 

2576 5 Do a Write Subsystem READ STATU 

2577 5 If Input Ready NOT=1 Then Print Error 

2578 3 If Output Ready NOT=0 Then Print Error 

2579 3 If Data In Miss NOT=0 Then Print Error 

2580 : If Last Word NOT=0 Then Print Error 

2581 ; REPEAT FOR DATA O TO 377, 377 TO 0, FLOATING 1°S.0°S AND ALL 1°S/C’S 

Sone 3 oy «tae BYTE COUNT 2 TO 64 DECIMAL 

2584 F Do a Write Subsystem WRITE NPR to set tape direction out 

2585 $ Do a Write Subsystem WRITE FIFO 

2586 : Do a Write Subsystem READ STATUS 

2587 5 If Input Ready NOT=1 Then Print Error 

2588 3 If Output Ready NOT=1 Then Print Error 

2589 3 If Data In Miss NOT=0 Then Print Error 

2590 : If Last Word NOT=0 Then Print Error 

2591 3 Do Write Subsystem RZAD FIFO ‘ 

2592 ; If Data read from 7IFO NOT= to Data sent Then Print Error 

2593 3 Do a Write Subsystem READ STATUS 

2594 : If Input Ready NOT=1 Then Print Error 

2595 3 If Output Ready NOT=0 Then Print Error 

2596 $ If Data In Miss NOT=0 Then Print Error 

2597 F If Last Word NOT=0 Then Print Error 

2598 3 END 

2599 : END 

2601 042104 BGNSUB — « g 444411111447 BEGIN SUBTEST /////////4/ 
042104 76.3: 

2602 042104 104402 TRAP C$8SUB 

2603 . Write to TSSR register to soft initialize the controller 

2604 042106 5s: 

2605 042106 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 

2606 042112 103405 BCS 10$ s F SOFT INIT OKAY 

2607 042114 MOV RO.R1 sSAVE CONTENTS OF TSSR 

2608 042116 ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 


SEQ 0187 


Sig136 
120 
042122 
124 


GRREERRERREER REF 
SaSeRRRRERRER 


nN 
— 
Nm 
on 


RRRRRRRY 
—D 
NOUS WN Oo 


2619 0421 


2630 042250 
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TEST 6: SUBTEST 3: 


FIFO WRITE MULTIPLE BYTES TEST 
164455 TRAP CSERDF 
001146 -WORD 614 
003652 -WORD SFIERR 
012034 WORD SFIMSG 
: Do a = ne ee to setup a message buffer 
005037 002222 10$: CLR TFLG AR FATAL ERROR FLAG 
012704 050200 MOV ST ITBACKET, RG :GET THE ADDRESS OF COMMAND PACKET 
737 010662 JSR PC ,WRICHR WRITE CHARACTERISTICS COMMAND 
FORCERROR 42$ s@@DFORCE ERROR IF FORCER=1 
103407 BCS 50$ zBR IF CARRY SET (GOOD RETURN) 
010001 a pam. # 7 SAVE CONTENTS OF TSSR 
42$: ERRDF ERRNO, T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSERDF 
001147 -WORD 615 
046625 -WORD 1T17SSR 
012046 WORD PKTSSR 
005237 002222 INC FATFLG zSET FATAL ERROR FLAG 
50$: CKLOOP :LOOP ON ERROR, IF FLAG a 
104406 CS$CLP1 
$ Do a valid € ti7ho READ STATUS 
737 047764 JSR :SETUP PACKET FOR READ inte i 
012704 050350 MOV ari PK [GET WRITE SUBSYSTEM COMMAND PACKET 
010465 MOV R4, Teestas) al THE PACKET ADDRESS TO EXECUTE 
737 016336 JSR PC, CHKTSSR WAIT FOR SSR TO SET 
FORC 6 s@@DFORCE ERROR IF FORCER=1 
103407 BCS 70 BR IF CARRY Y SET (GOOD RETURN) 
1 + e BS sSAVE CONTENTS OF TSSR 
62$: ERRDF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSERDF 
001150 «WORD 616 
046726 -WORD 1T173SSR 
012046 -WORD PKTSSR 
005237 002222 INC FATFLG zSET FATAL ERROR FLAG 
70$: CKLOOP LOOP ON ERROR, IF FLAG SET 
104406 TRAP CS$CLP1 
3 rt) WORDS 0-7 of ound message buffer = to recy since not testing 
004737 050146 PC, TI7SETEXP T WORDS 0-7 EXPD=RECV 
12701 046402 nov PTITEXSTACRI SGET EXPECTED READ STATUS 
012702 050242 MOV #T17BFSTA,R2 GET oct READ STATUS 
012221 MOV ph (R1}+ SET EXPD WORD #8 = RECV TEMP 
011211 MOV br (RI) SET EXPD WORD #9 = RECV TEMP 
052711 000020 BIS  INRDY, (R1) sSET EXP INPUT READY= 
042711 000040 BIC rf -OUTRDY, (R1) sSET EXP OUTPUT READY= 0 
042711 000200 BIC DIM, (Ri) sSET EXP DATA IN MISS = 0 
042711 000100 BIC Ry -ILW,(R1) + SET EXP LAST WORD (ILW)=0 
g If Input Ready NOT=1 then Print Error 
3 If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
$ If Last Word NOT=0 Then Print Error 
005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 
012701 070825 MOV #T17BFR,R1 [LOW RECV ADDRESS FOR CKMSG2 
O15 706 046 MOV #T17EXP.R2 EXPD ADDRESS 
012703 000024 MOV #20. .R3 [NUMBER OF orres TO COMPARE 
004737 011500 JSR PC, CKMSG2 ZX PD EQUAL RECV 
FORCERROR 82$,.NOTSSR 





SEQ 0188 


| 





2652 04235 
2653 Besse 


RoneRoPoPoT 
& we 


2661 
662 042364 


2698 042552 
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012737 
012737 
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82$: 


90$: 


3 TSTFLAG o> Fon 
: 23 
000001 002314 oo MOV #1, TSTF 
000002 002310 MOV #2, COUNT 
100$: 
000100 
050026 JSR PC,T17SNPR 
050350 MOV #TI7PK2,RG 
000000 MOV R4, Tsoging) 
016336 JSR PC. CHKTSSR 
FORCERROR 102 
BCS 105$ 
MOV RO,R1 
NEXT.ER 
102$: ERRDF 
002222 INC FATFLG 
105$:  CKLOOP 
3 Do a unre Suto stem WRITE FIFO 
050126 JSR 7CLEXP 
046504 MOV or ifurbatey R1 
002310 MOV COUNT ,R2 
000001 002314 CMP #1, TSTFLAG 
BNE 115$ 
CLR RO 
110$: MOVB RO,(R1)+ 
INC RO 
DEC 
BGT 110$ 
000002 002314 115$: CMP #2, TSTFLAG 
BNE 125$ 
000377 MOV #377,R0 
120$: MOVB RO,(R1)+ 
DEC RO 
DEC 
BGT 120$ 
000003 002314 125$: CMP #3, TSTFLAG 
BNE 135$ 


FIFO WRITE MULTIPLE BYTES TEST 


NEXT 


CKLOOP 


Do a Write Subsystem WRITE NPR to get, ta 
MOV ANP. sser 


- ERRNO 
ERRHRD ERRNO,T171CMP,MSGSTAT 


REPORT ERROR 
TRAP CSERHRD 
«WORD 617 
«WORD 1171CMP 
«WORD MSGSTAT 
zLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


REPEAT FOR eure COUNT 2 TO 64 DECIMAL 


INCREMENT TEST PATTERN 


RNO 
ERRNO,1174SSR,PKTSSR 


FOR DECREMENT TEST PATTERN 
FOR wy Pee PATTERN 


sTEST PATTERN FLAG 
sGET FIRST BYTE COUNT 
faceet cat out 
E NPR 

eT URI TE SUBSYSTEM COMMAND PACKET 
Set THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR TO SET 

s@@DFORCE ERROR IF FORCER=1 

BR IF CARRY SET (GOOD RETURN) 

SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 618 
-WORD 1174SSR 
«WORD PKTSSR 
zSET FATAL ERROR FLAG 
:LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


— EXPD BUFFER 

SEXPD WRITE FIFO DATA BUFFER 

zTEST PATTERN SIZ 

z INCREMENT PATTERN THIS TIME THRU? 


2BR 

: INCREMENT TEST PATTERN 

3 STORE st ad TEST BYTE 
SET NEXT PA TTERN 


:BR IF NO 
:DECREMENT PATTERN THIS TIME THRU? 


;DECREMENT TEST PATTERN 
3 STORE ese TEST BYTE 
3SET NEXT P TTERN 


'BR IF NO 
STSTBLK PATTERNS THIS TIME THRU? 
BR IF NO 


SEQ 0189 


SRB PE aS aI Cals SS RR eat eet 
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TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST SEQ 0190 

2699 042554 012700 002752 MOV #TSTBLK,RO ZFLOAT 1°S/O°S ETC. TEST TABLE 

2700 042560 112021 130$: MOVB (RO)+,(R1)+ ; STORE A TSTBLK BYTE 

2701 042562 005302 DEC R =D 

2702 042564 003375 BGT 130$ [BR # NO 

2703 042566 135$: 

2704 042566 013700 002310 MOV COUNT ,RO :FIFO BYTE COUNT 

2705 042572 012701 046504 MOV #T17WEDATA,R1 [FIFO WRITE DATA ADDRESS 

2706 042576 004737 050052 JSR PC, T17WF IF :SETUP T17PK2 FOR WRITE FIFO 

2707 042602 012704 050350 MOV = STI7PK2,R4 GET WRITE SUBSYSTEM COMMAND PACKET 

2708 042606 010465 000000 MOV Ré, TSDB(RS) :SET THE PACKET oADDRESS TO EXECUTE 

2709 042612 004737 016336 JSR PC ,CHKTSSR :WAIT FOR SSR TO SET 

2710 042616 FORCERROR 142$ aa0F ORCE ERROR IF FORCER=1 

2711 042632 103407 BCS 150$ zBR IF CARRY SET (GOOD RETURN) 

2712 042634 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

2713 042636 NEXT. ERRNO 

2714 042636 142$: ERRDF ERRNO,TI75SSR.PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
042636 104455 TRAP  CSERDF 
042640 001153 «WORD 619 
042642 047036 -WORD T175SSR 
042644 012046 -WORD PKTSSR 

2715 042646 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 

2716 042652 150$:  CKLOOP zLOOP ON ERROR, IF FLAG SET 
042552 104406 TRAP  CSCLP1 

2718 3 Do a Write subsystem READ STATUS 

2719 042654 004737 047764 JSR PC 3SETUP PACKET FOR READ STATUS 

2720 042660 012704 050350 MOV atiTPKS. RG 2GET WRITE SUBSYSTEM COMMAND PACKET 

2721 042664 010465 000000 MOV R4, TSDB(RS) ‘SET THE PACKET ADDRESS TO EXECUTE 

2722 042670 004737 016336 JSR PC. CHKTSSR [WAIT FOR SSR TO SET 

2723 042576 FORCERROR 157$ _jaaoFor ORCE ERROR IF FORCER=1 

2724 042710 103407 BCS 160$ :BR IF Y SET (GOOD RETURN) 

2725 042712 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

2726 042714 NEXT. ERRNO 

2727 042714 - 157$: ERRDF ERRNO,T173SSR,PKTSSR ;:DEVICE FATAL SSR FAILED TO SET 
042714 104455 TRAP CSERDF 
042716 001154 -WORD 6 

046726 -WORD T1173SSR 

042722 012046 -WORD PKTSSR 

2728 042726 005237 002222 INC FATFLG zSET FATAL ERROR FLAG 

2729 042730 160$:  CKLOOP ZLOOP ON ERROR, IF FLAG SET 

a 042730 104406 TRAP = CSCLP1 

2731 3 Set wanes a of eed message buffer = to recy since not testing 

2732 042732 004737 050146 JSR T17SET 3SET WORDS 0-7 EXPD=RECV 

2733 042736 012701 046402 MOV OTiTEXSTAT R1 3GET EXPECTED READ STATUS 

2734 042742 012702 050242 MOV #T17BFSTA.R2 :GET RECV READ STATUS 

2725 042746 012221 MOV (R)+, (Riss 7SET EXPD WORD #8 = RECV TEMP 

2734 042750 011211 MOV (R2), 3SET EXPD WORD #9 = RECV TEMP 

2737 042752 052711 000020 BIS as taney, (R1) :SET EXP INPUT READY= 1 

2738 042756 052711 000040 BIS #S2.OUTRDY, (R1) :SET EXP OUTPUT READY= 1 

2739 042762 042711 000200 BIC #S2.D1M, (Ri) 3SET EXP DATA IN MISS = 0 

2740 042766 042711 000100 BIC #S2.1LW.(R1) >SET EXP LAST WORD (ILW)=0 

2741 : If Input Ready NOT=1 then Print Error 

hoy 3 If Output Ready NOT=1 or Data in Miss NOT=0 Then Print Error 

2743 042772 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 

2744 042774 012701 950222 MOV #T17BFR,R1 *LOw RECV ADDRESS FOR CKMSG2 

2745 043000 012702 046 MOV #T17EXP.R2 ZEXPD ADDRESS 
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TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST SEQ 0191 

2746 043004 012703 000024 MOV #20. ,R3 :NUMBER OF EYTES TO COMPARE 

2747 043010 004737 011500 JSR PC, CKMSG2 ZEXPD ECuAL RECV? 

2748 043014 FORCERROR 162$,NOTSSR saad 

2749 043024 103404 acs anes :BR iF YES 

2750 043026 NEXT.ERRNO 

2751 043026 162$: ERRHRD ERRNO,T173CMP,MSGSTAT  ;:%EPORT ERROR 

043026 104456 TRAP CSERHRD 

$2 3080 001155 «WORD 621 
043032 047323 -WORD 1173CMP 
043034 012350 .WORD MSGSTAT 

2752 043036 , 170$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 

shes 104406 i TRAP —CSCLP1 

2754 : Do Write Subsystem READ FIFO 

2755 043040 013700 002310 MOV COUNT, RO 3SET READ BYTE C 

2756 043044 004737 050106 JSR PC, TI7RFIF “SETUP T17PK2 FORR READ FIF 

2757 043050 012704 050350 MOV #T17PK2,R4 2GET WRITE SUBSYSTEM COMMAND PACKET 

2758 043054 010465 000000 MOV R4, TSDB(RS) :SET THE | PACKET oADDRESS TO EXECUTE 

2759 043060 004737 016336 JSR PC.CHKTSSR ‘WAIT FOR SSR TO SE 

2760 043064 FORCERROR 172$ aadF ORCE ERROR IF FORCER=1 

2761 043100 103407 BCS 180$ zBR IF CARRY SET (GOOD RETURN) 

2762 043102 010001 MOV RO,R1 7 SAVE CONTENTS OF TSSR 

2763 043104 NEXT. ERRNO 

764 043104 172$: ERRDF ERRNO,T176SSR,PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
043104 104455 TRAP  CSERDF 
043106 001156 - WORD 2 
043110 047102 -WORD T1176SSR 
043112 012046 .WORD PKTSSR 

2765 043114 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 

2766 043120 180$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 

es 043120 104406 TRAP  CSCLP1 

2768 ; ie Data read from FIFO NOT= to Data sent Then Print Error 

2769 043122 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 

2770 043124 012702 046504 MOV st i7ueDATA. h2 [GET EXPECTED ADDRESS FOR CKMSG2 

771 043130 012701 050242 MOV #T17BFST SGET RECEIVED ADDRESS FOR CKMSG2 

2772 043134 013703 002310 MOV COUNT RS” [NUMBER OF BY TES TO COMPARE 

2773 043140 004737 011500 JSR PC, CKMSG2 ZEXPD EQUAL RECV? 

2776 043144 FORCERROR 192$.NOTSSR saad 

2775 043154 103406 BCS 200$ ‘BR IF YES 

2776 043156 NEXT. ERRNO 

2777 043156 013701 002310 192$: MOV COUNT,R1 3GET BYTE COUNT 

2778 043162 ERRHRD ERRNO.TI7SCMP.FIFEXP §§ :REPORT ERROR 
043162 104456 TRAP  CSERHRD 
043164 001157 «WORD 623 
043166 047472 -WORD 117SCMP 
043170 012170 .WORD FIFEXP 

2779 043172 200$:  CKLOOP zLOOP ON ERROR, IF FLAG SET 

lees 043172 104406 TRAP = CSCLP 1 

2781 s Do a Urite 2 Pieretes READ STATUS 

2782 043174 004737 047764 JSR :SETUP PACKET FOR READ STA ATUS 

2783 043200 012704 050350 MOV ATE te R4 [GET WRITE SUBSYSTEM COMMAND PACKET 

2784 043204 010465 000000 MOV R4, TSDB(RS) sSet THE PACKET ADDRESS TO EXECUTE 

2785 043210 004737 016336 JSR PC; CHKTSSR WAIT FOR SSR ie SET 

2786 043214 FORCERROR 2128 s@aDFORCE ERROR IF FORCER=1 

2787 043230 103407 BCS 2208 :BR IF CARRY SET (GOOD RETURN) 
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TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


SEQ 0192 


2788 043232 010001 
2789 043234 
2790 04 


043242 
2791 043244 005237 002222 


2792 043250 2208: 
043250 


2794 043252 004737 950146 
2795 043256 012701 046402 
2796 04 012702 050242 


04 
2799 043272 052711 000020 
2800 043276 042711 000040 
2801 043302 042711 000200 
sete 043306 042711 000100 


005000 

2806 4 012701 050222 

2807 043320 012702 046362 
000024 


011500 


2812 043346 


2813 043346 232$: 


33 
2814 Oi eaee 2408: 


3360 
043370 005237 002310 
002310 000077 


Ww 
3 
& 
oO 
NM 
S 
~™ 
~N 


023727 002314 000003 


N 
R 
mm 
RRRRRRRRRRRRRKRRRKK 
ER RRAKEELES LAA retry 
% SSSSRVESER 
R 
w 
nN 


005737 002222 
2828 043436 001606 
829 004737 017202 


2830 043444 2608: 





2128: 


& 
005237 002314 250$: 


255$: 


MOV RO,R1 zSAVE CONTENTS OF TSSR 
NEXT. ERRNO 


ERRDF ERRNO,1T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 624 
eWORD 1173SSR 
eWORD PKTSSR 

INC FATFLG SET FATAL ERROR FLAG 

CKLOOP LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

Set WORDS 0-7 ri 1 one message buffer = to recv since not testing 

JSR PC,117S sSET WORDS 0-7 EXPD=RECV 

MOV PTITEXSTAS R1 :GET EXPECTED READ STATUS 

MOV #7178F STA. R2 GET RECV READ STATUS 

MOV oe (Riss sSET EXPD WORD #8 = RECV TEMP 

MOV (R2), SET EXPD WORD #9 = RECV TEMP 


BIS as  INRDY, (R1) 3SET EXP. INPUT READY= 1 


BIC as SOUTRDY (R1) SET EXP OUTPUT READY= 0 

BIC #S2.D1M, (Ri) 3SET EXP DATA IN MISS = 0 
BIC #S2.I1LW,(R1) SET EXP LAST WORD (ILW)=0 
If Input Ready NOT=1 then Print iver 

If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV #T17BFR,R1 am yA ADDRESS FOR CKMSG2 
MOV #TI7EXP, R2 sEXPD ADDR 

MOV #20. R3. SNUMBER OF BYTES | TO COMPARE 
JSR PC,.CKMS S$G2 sEXPD EQUAL RECV? 

FORCERROR 232$,NOTSSR :aaDd 

i 240$ [BR IF YES 


ERRNO 
ERRHRD ERRNO,T174CMP,MSGSTAT  ;REPORT ERROR 
TRAP ta 


-WORD 6 
-WORD 1174CMP 
«WORD MSGSTAT 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
FORCEXIT 2508 :@aDd 
INC T 2GET NEXT BYTE COUNT 
CMP COUNT ,#77 sDONE 0 TO 77 
BHI 250$ :BR IF YES 
JMP 100$ 


DO ANOTHER BYTE COUNT 
INC TSTFLAG GET NEXT TEST PATTERN CODE 
CMP USTELAG.@3 sDONE INC.DEC,TSTBLK PATTERNS? 


BHI 3 Y 
JMP 95$ 3D0 ANOTHER TEST PATTERN 
ENDSUB SAAAATTTTTATT END SUBTEST ///4///4/47/ 
L70061: 
TRAP CSESUB 
TST cATELS sANY FATAL ERRORS ? 
BEQ 26°S [BR CH IF NOT 


JSR Pc. CKDROP :TRY TO DROP THE UNIT 


te 8 ee? 
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TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


2833 


15 


SEQ 0193 
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TEST 6: SUBTEST 4: FIFO VERIFY ILW STATUS SEQ 0194 

tH -SBTTL TEST 6: SUBTEST 4: FIFO Verify ILW Status 

2837 34+ 

2838 ; TEST 6: SUBTEST 4: 

2839 3 

sect ; SUBTEST DESCRIPTION: 

2842 ; This subtest verifies that reading the FIFO when it is 

ote : empty causes the Last Word (ILW) status to assert. 

2845 ; TEST STEPS: 

2846 3 

2847 : BEGIN — 

2848 : Write to TSSR to soft initialize 

2849 3 Do Write —— READ a Bl he byte count equal to 1 

2850 : Do a Write Subsystem READ STATUS 

2851 5 If Input Ready NOT=1 Thon Print Error 

2852 3 If Output Ready NOT= Then Print Error 

2853 : If Data In Miss NOT= Then Print Error 

2854 ; If Last Word (ILW) NOT=1 Then Print Error 

sis the 

2857 Bere BGNSUB s///1111111/4 BEGIN SUBTEST /////////7/ 

2858 043444 104402 TRAP C$8SUB 

2859 . Write to TSSR register to soft initialize the controller 

2860 043446 S$: 

2861 043446 004737 015774 JSR PC, SOFINIT sWRITE TO TSSR TO pot IMITIALIZE 

2 043452 103405 BCS 10$ ‘BR IF SOFT INIT OKAY 

2863 043454 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2864 043456 ERRDF ERRNO, SFIERR,SFIMSG :DEVICE FATAL DURING J%IT 
043456 104455 TRAP CSERDF 
043460 001161 -WORD 625 
043462 003652 eWORD SFIERR 
043464 012034 -WORD SFIMSG 

2865 s Do a ware of AAC TERISTICS to setup a message buffer 

2866 043466 005037 002222 10$: CLR TFLG ;CLEAR FATAL ERROR FLAG 

2867 043472 012704 050200 MOV ST ISBACKET, R4 :GET THE ADDRESS OF COMMAND PACKET 

2868 043476 004737 010662 JSR PC,WRICHR WRITE CHARACTERISTICS COMMAND 

2869 043502 FORCERROR 42$ ioeer ORCE ERROR IF FORCER=1 

2870 043516 103407 BCS 50$ BR IF CARRY SET (GOOD RETURN) 

2871 043520 010001 MOV RO.R1 SAVE CONTENTS OF TSSR 

2872 043522 NEXT. ERRNO 

2873 043522 42$: ERRDF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043522 104455 TRAP CSERDF 
043524 001162 eWORD 626 
043526 046625 eWORD 117SSR 
043530 012046 eWORD PKTSSR 

2874 043532 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 

2875 043536 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

2876 043536 104406 TRAP CSCLP1 

287 3 Do Write Subsystem READ FIFO with byte count equal to 1 

$378 063540 012700 000001 MOV #1-RO. Set READ BYTE ‘COUNT 


06 JSR PC TT TRE LE ‘SE tur TI7PK2 FOR READ 


700 00 
2879 04 3544 004737 0501 FIFO 
050350 MOV #Ti7PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 


2880 043550 012704 
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TEST 6: SUBTEST 4: FIFO VERIFY ILW STATUS SEQ 0195 
2881 043554 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET oAboREss TO EXECUTE 
2882 043560 004737 016336 JSR PC, CHKTSSR ‘WAIT FOR SSR SET 
2883 043564 FORCERROR 14 saad ORCE ERROR IF FORCER=1 

04 103407 BCS :8R IF chkay SET (GOOD RETURN) 
2885 04.3602 010001 < ya ernie’ ZSAVE CONTENTS OF SSR 
2887 043604 142$: ERRDF ERRNO,TI76SSR,PKTSSR = ;DEVICE FATAL SSR FAILED TO SET 
04 104455 TRAP‘ CSERDF 
043606 001163 «WORD 627 
043610 047102 .WORD 1176SSR 
043612 012046 .WORD PKTSSR 
2888 043614 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
2889 043620 150$:  CKLOOP SLOOP ON ERROR, IF FLAG SET. 
am 043620 104406 CSCLP1 
2891 3 Do a Wri ee 2 Pyperetes READ STATUS 
2892 043622 004737 04776 JSR : SETUP PACKET FOR READ STATUS | 
2893 043626 012704 050350 MOV AT te RG ZGET WRITE SUBSYSTEM COMMAND PACKET 
043632 010465 000000 MOV R4, TSDB(RS) iSet THE PACKET ADDRESS TO EXECUTE 
2895 043636 004737 016336 JSR PC. CHKTSSR AIT FOR SSR TO SET 
043642 FORCERROR & FORCE ERROR IF FORCER=1 
2897 043656 103407 BCs 170 :8R IF Y- SET (GOOD RETURN) 
2898 043660 010001 MOV RO,R1 + SAVE CONTENTS OF TSSR 
043662 NEXT. ERRNO 
2900 043662 162$: ERRDF ERRNO,T173SSR,PKTSSR ;:DEVICE FATAL SSR FAILED TO SET 
043662 104455 TRAP  — CSERDF 
043664 001164 «WORD 628 
043666 046726 -WORD T173SSR 
043670 012046 PKTSSR 
1 043672 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
2902 043676 170$:  CKLOOP [LOOP ON ERROR, IF FLAG SET 
043676 104406 CSCLP1 
3 3 Set WORDS = of ouse message buffer = to recy since nied craaies 
2904 043700 004737 050146 JSR PC, TI7SETE 3SET WORDS 0-7 EXPD=RECV 
2905 043704 012701 046402 MOV OTITEXSTAS R1 [GET EXPECTED READ STATUS 
2906 043710 012702 050242 MOV #T17BFSTA.R2 [GET RECV READ STATUS 
2907 043714 012221 MOV (R2)+, (R1}+ ZSET EXPD WORD #8 = RECV TEMP 
2908 043716 011211 MOV (R2), (R1) 3SET EXPD WORD #9 = RECV TEMP 
2909 043720 052711 000020 BIS #S2. INRDY, (R1) 3SET EXP INPUT READY= 1 
2910 043724 042711 000040 BIC #52. OUTRDY, (R1) sSET EXP OUTPUT READY= 0 
2911 043730 042711 000200 BIC #S2.D1M, (Ri) 7SET EXP DATA IN MISS = 0 
2912 043734 052711 000100 BIS #S2.1LW.(R1) sSET EXP LAST WORD (ILW)=1 
2913 : If jreut Ready NOT=1 then Print Error 
2914 : If Output Roady NOT=0 or Data in Miss wots 0 Then Print Error 
2915 : If Last Word (ILW) NOT=1 Then Prine Erro 
2916 043740 005000 CLR HIGH RECV ADDRESS FOR CKMSG2 
2917 043742 012701 950222 MOV OTI7OFR, R1 ;LOW RECV ADDRESS FOR CKMSG2 
2918 043746 012702 046 MOV #T17EXP.R2 ZEXPD A DRE s 
2919 043752 012703 000024 MOV 20.,. :NUMBER OF BYTES TO COMPARE 
2920 043756 004737 011500 JSR PC, CKMSG2 ZEXPD EQUAL RECV? 
2921 043762 FORCERROR 172$,NOTSSR saad 
2922 043772 103404 BCS 180$ [BR IF YES 
2923 043774 NEXT. ERRNO 
2924 043774 172$: ERRHRD ERRNO,TI76CMP,MSGSTAT ;REPORT ERROR 
043774 104456 TRAP  CSERHRD 
043776 001165 .WORD 629 
4 047546 .WORD T176CMP 
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044002 012350 


2925 044004 180$: CKLOOP 
044004 104406 
ENDSUB8 
104403 
C05737 002222 TST FATFLG 
001402 BEQ 260$ 
004737 017202 JSR PC ,,CKDROP 


260$: 


-WORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLPI 
s//IIITTTSTST END SUBTEST ////////// 
L10062: 
TRAP CSESUB 


zANY FATAL ERRORS ? 
BRANCH IF NOT 
zTRY TO DROP THE UNIT 


ry 





2936 
2937 


044022 
5 
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194402 
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015774 


002222 
050200 
010662 


-SBTTL TEST 6: SUBTEST 5: FIFO Verify Input Ready 


++ 
; TEST 6: SUBTEST 5: 


Bee Se Ge Se Be Be Fe Se Se Se Ge Be Se Be Se Be Se Se Be Be Se Be Se Ge Ge Be Se Se Be Se Se Be Be 


és: 


END 


ios: 


SUBTEST DESCRIPTION: 


This subtest verifies tuat writing 64. bytes into the FIFO 
without reading any out causes the Input Ready status to 
negate. The Subtest then verfiies that writing a 65th byte 
into the FIFO causes the Data In Miss status to assert. 
Next it is verified that the Ah ee 64 bytes can be read 
out correctly and that the data has not been corrupted. 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a remy buf fer 

Do a Write Subsystem WRITE NPR to set tape direction out 

Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern 
Do a Write Subsystem READ STATUS 

If Input Ready NOT=0 Then Print Error 

If Output Ready NOT=1 Then Print Error 

If Data In Miss NOT=0 Then Print Error 


Then Print Error 
Fite Print Error 


I 

If 

If 

Do 0 

If Data read from FIFO NOT= to Data sent Then Print Error 
Do STATUS 

If 

If 

If 


Then Print Error 
Then Print Error 


BGNSUB SAIITAAANA AGS ae eee VSAbhbsSsN 
TRAP CS$BSUB 

Write to TSSR register to soft initiatize the controller 

JSR PC, SOF INIT WRITE TO TSSR TO SOFT INITIALIZE 

BCS 10$ BR IF SOFT INIT OKAY 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERRDF ERRNO,SFIERR,SFIMSG DEVICE FATAL DURING INIT 
TRAP CSERDF 
-WORD 629 
-WORD SFIERR 
° SF IMSG 

Do 3 WRITE CHARACTERISTICS to none a message buffer 

CLR FATFLG sCLEAR FATAL ERROR FLAG 

MOV #T17PACKET,R4 GET THE ADDRESS OF COMMAND PACKET 

JSR PC,WRTCHR DO WRITE CHARACTERISTICS COMMAND 

FORCERROR 42$ s6@DFORCE ERROR IF FORCER=1 





SEQ 0197 
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TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY 

2987 044074 163407 BCs 50$ z8R IF CARRY SET (GOOD RETURN) 
044076 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 

2989 044100 NEXT.ERRNO 

2990 044160 42$: ERRDF ERRNO,T17SSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
044100 104455 TRAP CSERDF 
042102 001166 -WORD 6 
044104 046625 .WORD - T17SSR 
044106 012046 .WORD * PKTSSR 
044110 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 

2992 044114 50$:  CKLOOP ZLOOP ON ERROR, IF FLAG SET 

seve 044114 104406 TRAP C$CLP1 

2996 ° Do a Write Subsystem WRITE NPR to set t direction out 

2995 044116 012700 1 100$: MOV #NP.OUT,RO zSET TAPE DIRECTION OUT 

2996 044122 737 05002 JSR PC, T17SNPR :SETUP T1 FOR 

2997 044126 012704 050350 MOV #T17PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 

2998 044132 010465 MOV R4, TSDB(RS) SET THE PACKET oADDRESS TO EXECUTE 

2999 044136 004737 016336 JSR PC, CHKTSSR WAIT FOR SSR TO SET 

3000 044142 FORC s@aDFORCE ERROR IF FORCER=1 

3001 044156 103407 BCS 5$ zBR IF CARRY SET (GOOD RETURN) 

3002 044160 010001 Vv »R1 ZSAVE CONTENTS OF TSSR 

3003 044162 NEXT. ERRNO 

3004 044162 102$: ERRDF ERRNO,TI74SSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
044162 104455 TRAP CSERDF 
044164 001167 .WORD 1 
044166 046773 <WORD 1174SSR 
044170 012046 .WORD PKTSSR 

3005 044172 005237 002222 INC FATFLG zSET FATAL ERROR FLAG 

3006 044176 105$:  CKLOOP [LOOP ON ERROR, IF FLAG SET 

a 044176 104406 TRAP  C$CLP1 

3008 Fs Do a Write Subsystem WRITE FIFO 64. ITE 8 BF incrementing pattern 

3009 044200 012737 100 002310 MOV . »COUNT SWRIT BYTES 

3010 044206 072701 046504 MOV #T*7WFDATA,R1 ZEXPD WRITE FIFO DATA BUFFER 

3011 044212 012702 100 MOV #64., :TEST PATTERN SIZE | 

3012 044216 005000 CLR R S INCREMENT TEST PATTERN 

3013 044220 170021 110$: MOVB RO,(R1)+ 3 STORE INCRERENT TEST BYTE 

3014 044222 005200 INC RO 3SET NEXT PATTERN 

3015 044224 00530 DEC : 

3016 044226 003374 BGT ‘BR iF 

3017 044230 013700 002310 MOV COUNT RO FIFO BYTE COUNT 

3018 044234 012701 046504 MOV #117WEDATA,R1 FIFO WRITE DATA ADDRESS 

2999 044045 664737 65005 JSR PC, T17WF IF SSETUP TI7PK2 FOR write Firs 

3020 044244 012704 050350 MOV Ti7PK2, 2GET WRITE SUBSYSTEM COMMAND PACKET 

3021 044250 010465 MOV R4, TSDB(RS) zSET THE PACKET ADDRESS TO EXECUTE 

3022 044254 737 016336 JSR “CHKTSSR :WAIT FOR SSR TO SET 

3023 044 FORCERROR 142 s@aDFORCE ERROR IF FORCER=1 

3024 044274 103407 BCS 0s 7BR IF CARRY SET (GOOD RETURN) 

3025 044276 010001 MOV RI ZSAVE CONTENTS OF TSSR 

3026 044 NEXT.ERRNO 

3027 044300 142$: ERRDF ERRNO,TI7SSSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
044300 104455 TRAP —s_ CSERDE 
044302 001170 «WORD 632 
044304 047036 .WORD T175SSR 
044306 012046 -WORD PKTSSR 

3028 044310 005237 002222 INC FATFLG 7SET FATAL ERROR FLAG 

3029 044314 150$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 


SEQ 0198 
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| TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY SEQ 0199 
| ~— 044314 164406 TRAP C$CLP1 
| 3031 : Do a rite _subsysten READ STATUS 
s058 : If Input othe Then Print Error 
303 : If Output "Ready NOT=1 Then Print Error 
3034 : If Data Hy. aise NOT=0 Then Print Error 
3035 044316 004737 047764 2 JSR 17SRD 7 SETUP PACKET FOR READ STATUS 
3036 044322 012704 050350 MOV ariyPKo RG [GET WRITE SUBSYSTEM COMMAND PACKET 
3037 044326 010465 000000 MOV R4,TSDB(RS) ise! THE PACKET ADDRESS TO EXECUTE 
3038 044332 004737 016336 JSR PC, CHKTSSR WAIT FOR SSR We SET 
3039 044336 FORCERROR 157$ z9a0FOR CE ERROR IF FORCER=1 
3040 044352 103407 acs 160$ zBR IF CARRY SET (GOOD RETURN 
3041 044354 010001 MOV RO,R1 3SAVE CONTENTS OF TSSR 
3042 044356 NEXT .ERRNO 
3043 044356 157$: ERRDF ERRNO,TI73SSR,PKTSSR ;:DEVICE FATAL SSR FAILED TO SET 
044356 104455 TRAP CSERDF 
044360 001171 «WORD 633 
044362 046726 -WORD 1173SSR 
044364 012046 -WORD PKTSSR 
3044 044366 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
3045 044372 160$: CKLOOP 7LOOP ON ERROR, IF FLAG SET 
044372 104406 TRAP  C$CLP1 
3046 $ Set WORDS 0-7 of x » message buffer = to recy since not testing 
3047 044374 004737 050146 JSR PC, TI7SETE 3SET WORDS 0-7 EXPD=RECV 
3048 044400 012701 046402 MOV #TI7EXSTA,R1 :GET EXPECTED READ STATUS 
3049 044404 012702 05024 MOV #117BFSTA,R2 :GET RECV READ STATUS 
3050 044410 012221 MOV (R2)+,(R1)+ :SET EXPD WORD 38 = RECV TEMP 
3051 044412 011211 MOV (R2),(R1) [SET EXPD WORD #9 = pec TEMP 
3052 044414 042711 000020 BIC #S2. INRDY, (R1) 7SET EXP INPUT READ 
3053 044420 052711 000040 BIS #S2. GUTRDY « (R1) ‘SET EXP OUTPUT READY= 1 
3054 044424 042711 000200 BIC #S2.D1M, (R1) :SET EXP DATA IN MISS = 0 
3055 044430 005000 CLR RO [HIGH RECV ADDRESS FOR CKMSG2 
3056 044432 012701 050222 MOV #T17BFR,R1 zLOW RECV ADDRESS FOR CKMSG2 
3057 044436 012702 046362 MOV #TI7ZEXP.R2 ZEXPD ADDRESS 
3058 044442 012703 000024 MOV #20.,R3 ZNUMBER OF BYTES TO COMPARE 
3059 044446 004737 011500 JSR PC, CKMSG2 3EXPD EQUAL RECV? 
3060 044452 FORCERROR 162$,NOTSSR saad 
3061 044462 103404 BCS 170$ :BR IF YES 
3062 044464 NEXT .ERRNO 
3063 044464 162$: ERRHRD ERRNO,T173CMP.MSGSTAT  ;:REPORT ERROR 
044464 104456 TRAP  CSERHRD 
044466 001172 -WORD 634 
044470 047323 -WORD 1173CMP 
044472 012350 -WORD MSGSTAT 
3064 044474 170$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
‘ 044474 104406 TRAP CS$CLP1 
3067 : Do a Write Subsystem WRITE FIFO 1 byte for a total of 65. written 
3068 044476 012700 000001 MOV #1,R0 sFIFO BYTE COUNT 
3069 044502 012701 046504 MOV #T17WFDATA,R1 FIFO WRITE DATA ADDRESS 
3070 044506 004737 050052 JSR PC, T17WFIF [SETUP T17PK2 FOR WRITE FIFO 
3071 044512 012704 050350 MOV #T17PK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 
3072 044516 010465 000000 MOV R4, TSDB(RS) 7SET THE PACKET ADDRESS TO EXECUTE 
3073 044522 004737 016336 JSR PC, CHKTSSR [WAIT FOR SSR TO SET 
3074 044526 FORCERROR 172$ s@@DFORCE ERROR IF FORCER=1 
3075 044542 103407 BCS 180$ 7BR IF CARRY SET (GOOD RETURN) 





| F 16 
TSVS = HARDWARE TESTS MACRO M1113 os. 09:19 PAGE 109-3 


TEST 6: SUBTEST 5: FIFO VERIFY INPUT READ SEQ -0200 

3076 044544 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

3077 044546 NEXT.E 

3078 044546 1728: ERRDF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
044546 104455 RAP CSERDF 
044550 001173 -WORD 635 
044552 047036 -WORD T175SSR 
044554 012046 -WORD PKTSSR 

3079 044556 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

3080 044562 180$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

3081 044562 104406 TRAP CSCLP1 

3082 3 Do a Write Subsystem READ STATUS 

3083 $ If Inout Ready NOT= Then Print Error 

3084 3 If Output Ready NOT=1 Then Print Error 

3085 3 If Data io > ieee NOT=1 Then Print Error 

3086 044564 737 047764 JSR sSETUP PACKET FOR READ STATUS 

3087 044570 012704 050350 MOV eTiyPKo. RG [GET WRITE SUBSYSTEM COMMAND PACKET 

3088 044574 010465 000000 MOV R4, TSDB(RS) zSET THE PACKET ADDRESS TO EXECUTE 

3089 044600 004737 016336 JSR PC. CHKTSSR WAIT FOR SSR TO SET 

3090 044604 FORC nea ORCE ERROR | a 
044620 103407 BCS 90$ BR IF CAR Y SET (GOOD REI URN 
044622 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

3093 044624 NEXT. ERRNO 
044624 187$: ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED T9 SET 
044624 104455 TRAP CSERDF 
044626 001174 ~ WORD 
044630 046726 -WORD 1173SSR 
044632 012046 WORD PKTSSR 

3095 044634 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

3096 044640 190$: CKLOOP ‘ LOOP ON ERROR, IF FLAG SET 
044640 104406 TRAP CSCLP1 

3 Set WORDS 0-7 of ound message buf fer = to recy since not testing 

3098 044642 004737 050146 JSR PC, T17SETE T WORDS 0-7 EXPD=RECV 

3099 044646 012701 046402 MOV # iPEXSTACAT GET EXPECTED — STATUS 

3100 044652 012702 050242 MOV #T17BFSTA 2GET ase READ STATUS 

3101 044656 012221 MOV (R2)+, (R1S¢ [SET EXPD WORD 38 = RECV TEMP 

3102 044660 011211 MOV (R2),(R1) ; XPD WORD = RECV TEMP 

3103 044662 042711 000020 BIC #S2. INRDY, (R1) sSET EXP INPUT READY= 0 

3104 044666 052711 000040 BIS #S2.OUTRDY, (R1) zSET EXP OUTPUT READY= 1 

3105 044672 052711 000200 BIS #S2.DIM, (Ri) SET EXP DATA IN MISS = 1 

3106 044676 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 

3107 044700 012701 050222 MOV #T17BFR,R1 LOW RECV ADDRESS FOR CKMSG2 

3108 044704 012702 046362 MOV #TI7EXP. R2 sEXPD ADDRESS 

3109 044710 012703 24 MOV ‘NUMBER OF a Hm TO COMPARE 

3110 044714 737 011500 JSR C,CKMSG2 EXPD EQUAL RECV 

3111 044720 FORCERROR 192$,.NOTSSR 

3112 044730 103404 BCS 00$ “BR IF YES 

3113 044732 NEXT. ERRNO 

3114 044732 192$: ERRHRD ERRNO,1T173CMP,MSGSTAT sREPORT ERROR 
044732 104456 TRAP CSERHRD 
044734 001175 eWORD 637 
044736 047323 -WORD 1173CMP 
044740 012350 -WORD MSGSTAT 

3115 044742 200$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
044742 104406 ; TRAP =-CSCLP1 

3116 : Do Write Subsystem READ FIFO 

3117 044744 013700 002310 MOV COUNT ,RO 3SET READ BYTE COUNT 


Ee FE Ne ie Reed SPE EE et Pe OO SN ES ETRE DI eT ETEONEEM 
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. 3118 044750 064737 050106 JSR PC Lag sSETUP T17PK2 FOR READ FIFO 
3119 644754 012704 050350 MOV aTi7PK [GET WRITE SUBSYSTEM COMMAND PACKET 
3130 044760 010465 000000 MOV RG, Tsostea) SET THE PACKET ADDRESS TO EXECUTE 
121 044764 004737 016336 JSR PC. CHKTSSR :WAIT FOR SSR TO SET 
s156 044770 FORCERROR 212$ jeeer ORCE ERROR IF A pa 
3123 045004 103407 Bcs 2208 BR IF CARRY SET (GOOD RETURN) 
3124 045006 010001 Vv A. RI 3 SAVE CONTENTS OF TSSR 
3125 045010 NEXT .ERR 
3126 045010 212$:  ERRDF ERRNO, T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045010 104455 TRAP CSERDF 
045012 001176 - WORD 
045014 047102 «WORD 1176SSR 
045016 012046 -WORD PKTSSR 
3127 045020 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3128 045024 220$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
3129 024 104406 TRAP CS$CLP1 
3130 3 MA Data read from FIFO NOT= to Data sent Then Print Error 
3131 045026 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
3132 045030 012702 046504 MOV #T17WFDATA,R2 sGET EXPECTED ADDRESS FOR CKMSG2 
3133 045034 012701 050242 MOV #T17BFSTA,RI1 :GET RECEIVED ey: FOR CKMSG2 
3134 045040 013703 002310 MOV COUNT .R3 NUMBER OF BY ree COMPARE 
3135 045044 004737 011500 JSR PC ,CKMSG2 sEXPD EQUAL RECV 
3136 045050 FORCERROR 232$,NOTSSR :aad 
3137 045060 103406 BCS 240$ ‘BR IF YES 
3138 045062 NEXT. ERRNO 
3139 045062 013701 002310 2328: Vv COUNT ,R1 :GET BYTE COUNT 
3140 045066 ERRHRD ERRNO,1175CMP,FIFEXP sREPORT ERROR 
045 04456 TRAP CSERHRD 
045070 001177 eWORD 639 
50 047472 -WORD 117S5CMP 
045074 012170 -WORD FIFEXP 
3141 045076 240$: CKLOOP ;LOOP ON ERROR, IF FLaG SET 
3142 045076 104406 TRAP CSCLP1 
3143 : Do a Write Subsystem READ STATUS 
3144 : If Input Ready NOT=1 Then Print Error 
3145 : If Output Ready NOT=0 Then Print Error 
146 3 If Data In Miss NOT=1 Then Print Error 
3147 045100 004737 047764 JSR PC,T17SRD 2SETUP PACKET FOR READ STATUS 
3148 045104 012704 050350 MOV #TI7PK2,R4 GET WRITE SUBSYSTEM COMMAND PACKET 
3149 045110 010465 000000 MOV R4, TSDB(RS) SET * PACKET ADDRESS TO EXECUTE 
3150 045114 004737 016336 JSR PC, CHKTSSR “WAIT F OR SSR TO SET 
3151 045120 FORCERROR 25 ele’ ORCE ERROR IF FORCER=1 
3152 045134 103407 BCS 260$ BR IF Y SET (GOOD RETURN) 
3153 045136 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
3154 045140 NEXT.E 
3155 0451 252$: ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045140 104455 TRAP CSERDF 
045142 1200 -WORD 640 
045144 046726 -WORD 1173SSR 
045146 012046 -WORD PKTSSR 
3156 045150 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
3157 045154 260$: CKLOOP ;LOOP ON ERROR, IF FLAG sr 
045154 104406 CSCLP1 
3158 3 Set WORDS 0-7 of expe message buffer = to recy since -— castles 
3159 045156 004737 050146 JSR PC, TI7SETE SET WORDS 0-7 EXPD=RECV 
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TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY SEQ 0202 

3160 045162 012701 04640 MOV #TI7EXSTA,RI1 :GET EXPECTED, READ STATUS 

3161 045166 012702 05024 MOV #117BFSTA.R2 :GET RECV READ STATUS 

3162 045172 012221 MOV (R2)+, (R13 ZSET EXPD SOND #8 = RECV TEMP 

3163 065174 011211 MOV (R2), (R1) :SET EXPD WORD #9 = RECV TEMP 

3164 045176 052711 000020 BIS #S2. INRDY, (R1) :SET EXP INPUT READY= 1 

3165 045202 042711 000040 BIC #52. OUTRDY, (R1) 7SET EXP OUTPUT READY= 0 

3166 045206 052711 000200 BIS #S2.D1M, (Ri) :SET EXP DATA IN MISS = 1 

3167 045212 005000 CLR RO :HIGH RECV ADD RESS FOR CKMSG2 

3168 045214 012701 050222 MOV #T17BFR,R1 :LOW RECV ADDRESS FOR CKMSG2 

3169 045220 012702 046362 MOV #T17EXP.R2 ZEXPD ADDRESS 

3170 045224 012703 000024 MOV #20. 0R3 [NUMBER OF BYTES, TO COMPARE 

3171 045230 004737 011500 JSR PC, CKMSG2 ZEXPD EQUAL REC 

3172 045234 FORCERROR 272$,NOTSSR saad 

3173 045244 103404 BCS 280$ [BR IF YES 

3174 045246 NEXT.ERRNO 

3175 045246 272$: ERRHRD ERRNO,T174CMP,MSGSTAT  :REPORT ERROR 
045246 104456 TRAP CSERHRD 
045250 001201 «WORD 641 
045252 047407 “WORD 1174CMP 
045254 012350 .WORD MSGSTAT 

3176 045256 280$:  CKLOOP ZLOOP ON ERROR, IF FLAG SET 

ow 045256 104406 TRAP _—- CSCLP1 

3178 045260 ENDSUB SIITTIASSTAAS END SUBTEST ////////44/ 
045260 L10063: 

cine 045260 104403 TRAP CSESUB 

3180 045262 005737 002222 TST FATFLG ZANY FATAL ERRORS ? 

3181 045266 001402 BEQ 300$ [BRANCH IF NOT 

3182 045270 004737 017202 JSR PC, CKDROP :TRY TO DROP THE UNIT 

3183 045274 300$: 

3184 

3185 

3186 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST — SEQ 0203 


Lb - -SBTTL TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 

3190 34+ 

313) ; TEST 6: SUBTEST 6: 

aier 3; SUBTEST DESCRIPTION: 

3195 : This subtest verifies that the Reset FIFO function within 

31% ; the Write Miscellaneous Control 1 function initializes 

3197 ; the FIFO to correct intial status. The following steps 

3198 3 are performed: , 

3199 : 1. Reset an already initialized FIFO and check for 

3200 : proper status. 

3201 : 2. thy a varying number of bytes (1-65.) into the 

3202 5 FIFO and port that after each block of bytes is 

3203 ; written the FIFO can be be reset to it’s initial 

3204 $ state. 

3205 3 

3206 : TEST STEPS: 

3207 $ 

3208 : BEGIN 

3209 : Write to TSSR to soft initialize 

3210 3 Do a WRITE CHARACTERISTICS to setup a message ouiter 

3211 : Do a Write Subsystem Write Wise to Reset FIFO 

3212 : Do a Write Subsystem READ STATUS 

3213 : If A Tape Status 2 (ICER, IFMK,IHER) flip-flop 

3214 ; gnals NOT=0 Then Print Error 

$512 5 =, . SOrite Subsystem WRITE NPR to set tape direction out 

3217 : REPEAT FOR BYTE COUNT 71 TO 65. 

3218 ; BEGIN 

3219 : Do a Write Subsystem WRITE FIFC with the current byte count 

3220 : Do a Write Subsystem Write oH 3 to Reset FIFO 

3221 : oe a Write Subsystem READ STAT 

3222 : If all Tape Status 2 (ICER, IFPK IHER) flip-flop 

3223 : signals NOT=0 Then Print Error 

3558 

3226 ONS BGNSUB s/4/444114417 BEGIN SUBTEST ////////47/ 

3097 045274 104402 TRAP c$8SuUB 

3228 ; Write to TSSR register to soft initialize the controller 

3229 045276 5s: 

3230 045276 004737 015774 JSR PC, SOF INIT wa TO TSSR TO SOFT INITIALIZE 

3231 045302 103405 BCS 10$ [BR IF SOFT INIT OKAY 

3232 045304 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3233 045306 ERRDF ERRNO,SFIERR,SFIMSG [DEVICE FATAL DURING INIT 
045306 104455 TRAP CSERDF 
045310 001201 -WORD 641 
045312 003652 -WORD SFIERR 
045314 012034 -WORD SFIMSG 

3234 . Do a WRITE CHARACTERISTICS to rete a aa FatAre buf fer 

3235 045316 005037 002222 10$: CLR FATFLG AR FAT ERROR FLAG 

3236 045322 012704 050200 MOV #T17PACKET,R4 GET THE AD S OF COMMAND PACKET 

$535 063368 004737 010662 JSR PC .WRICHR :D0 Asie “CHAMACTERIST ICs COMMAND 


FORCERROR 42$ ORCE ERROR IF FORCER=1 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


6 


3256 ee etee 


3260 

3261 045446 
3262 045452 
5456 


~~“ 2 
FIMO & 


aNeuNIN 2 
Mira a detent 


an 
FENVSAS 


32 
32 
32 
32 
32 
32 
32 
32 
32 
32 
32 


33 


163407 
010001 


002222 


050004 
050350 
000000 
016336 


002222 


047764 
050350 


0 
016336 


002222 
050146 
04640 
05024 





42$: 


62$: 


708: 


77$: 


80$: 


J 16 
BCs Sb BR IF CARRY SET (GOOD RETURN) 
RL, « SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF ERRNO,T17SSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
TRAP  CSERDF 
«WORD 642 
.WORD T17SSR 
.WORD PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP [LOOP ON ERROR, IF FLAG SET kel 
Do a Write c Timmer Write Misc to Reset 44 
JSR zSETUP PKT FOR WRITE MISC RESET FIFO 
V aT fshp R4 3GET WRITE SUBST YSTEM COMMAND PACKET 
MOV R4, costes) SET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR “WAIT F SSR TO SET 
FORCERROR 628 aDFORCE ERROR IF FORCER=1 
BCS :8R IF Y SET (GOOD RETURN) 
MOV : RO,R1 SAVE CONTENTS OF TSSR 
ERRDF ERRNO,T172SSR.PKTSSR :DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. WORD 3 
-WORD T172SSR 
D  PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP SLOOP ON ERROR, IF FLAG SET 
CSCLP1 
Do a Write Subsystem READ STATUS 
If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 
signals NOT=0 Then Print Error 
JSR PC,T17S ;SETUP PACKET FOR REAv STATUS | 
MOV #TIi7PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) [SET THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR [WAIT FOR SSR TO SET 
FORCERROR 77$ aa0F ORCE ERROR IF FORCER=1 
BCS BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF ERRNO,T173SSR,PKTSSR  ;:DEVICE FATAL SSR FAILED TO SET 
TRAP  — CSERDF 
«WORD 644 
.WORD T173SSR 
-WORD PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP [LOOP ON ERROR, IF FLAG SET ag 
JSR PC, T17SETEXP ZSET WORDS 0-7 EXPD= necy (wot Testing) 
MOV #Ti7EXSTA,RI [GET EXPECTED READ STATUS 
MOV #717BF STA.R2 3GET RECV READ STATUS 
MOV (R17) SSET EXPD WORD #8 = RECV TEMP 
BIC #S1.1CER,(R1) 7SET EXPD =0 
BIC #51. 1FMK.(R1) 7SET EXPD IFMK =0 
BIC #51. THER. (R1) :SET EXPD =0 
MOV 2(R2) »2¢R1) D #9 = RECV (NOT TESTING) 


SET EXPD WORD 
CLR HIGH RECV ADDRESS FOR CKMSG2 


SEQ 0204 


16 
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Bate 
1T TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST SEQ 0205 
| 3281 045566 012701 950222 MOV —-#T17BFR,RI sLOW RECV ADDRESS FOR CKMSG2 
282 045572 012702 04636 MOV #T17EXP_R2 sEXPD ADDRESS 
| 3283 045576 012703 000024 MOV #20.,R3. NUMBER OF BYTES TO COMPARE 
045602 004737 011500 JSR PC ,CKMSG2 + hy EQUAL RECV 
045606 FORCERROR 92$,,NOTSSR 
045616 103404 BCS BR IF YES 
3287 045620 NEXT. ERRNO 
3288 Oe eeso 92$: ERRHRD ERRNO,T177CMP,MSGSTAT  ;REPORT ERROR 
045620 104456 TRAP CSERHRD 
045622 001205 -WORD 645 
045624 047654 eWORD 1177CMP 
045626 012350 «WORD MSGSTAT 
3289 045630 100$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
0456 104406 TRAP CSCLP1 
1 ; Do a w ite Subsystem WRITE NPR to set t direction out 
3292 045632 012700 MOV “NP .OUT RO sSET TAPE DIRECTION OUT 
3293 045636 737 050026 JSR Pc _T17SNPR SETUP Hag aa WRITE NPR 
3294 045642 012704 050350 MOV PK2. ns ZGET WRITE SUBSYSTEM COMMAND PACKET 
3295 045646 010465 000000 MOV R4, TSDB(RS) SET y * Backer ADDRESS TO EXECUTE 
3296 045652 737 016336 JSR PC, CHKTSSR :WAIT FOR SSR TO SET 
3297 045656 FORCERROR 112$ or ERROR IF FORCER=1 
3298 045672 103407 BCS BR IF CAR SET (GOOD RETURN) 
3299 045674 010001 MOV — SAVE CONTENTS OF SSR 
3300 045676 NEXT. ERRNO 
3301 045676 112$:  ERRDF ERRNO,1T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
045676 104455 TRAP CSERDF 
045700 001206 WORD 64 
045702 046773 «WORD 1174SSR 
045704 012046 -WORD PKTSSR 
3302 045706 005237 002222 INC FATFLG SET FATAL ERROR FLAG 
3303 045712 120$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
045712 104406 TRAP CSCLP1 
3 Setup inerenent ing pattern in FIFO data buffer 
3306 045714 012701 046402 MOV #TI7EXSTA,R1 sEXPD WRITE FIFO DATA BUFFER 
3307 045720 012702 000100 MOV #64. ,R2 sTEST PATTERN SIZE 
3308 045724 5000 CLR RO SINCREMENT TEST PATTERN 
045726 110021 130$: RO,(R1)+ ZSTORE INCREMENT TEST BYTE 
3310 045730 005200 INC RO SET NEXT PATTERN 
3311 045732 005302 DEC R2 DONE? 
ang 045734 003374 BGT 130$ zBR IF NO 
3314 ; REPEAT FOR BYTE COUNT 1 TO 65. 
3315 045736 012737 000001 002310 MOV #1, COUNT sGET FIRST BYTE COUNT 
1 . Do a Write "Subsystem WRITE FIFO with the current byte count 
3317 045744 150: ;REPEAT LOOP LABEL 
3318 045744 013700 002310 MOV COUNT RO F100 BYTE COUNT 
3319 045750 012701 6402 MOV ATIZEXSTA,RI FIFO wire DATA ti 
3320 045754 004737 050052 JSR PC, T17WF IF :SETUP T17PK2 FOR WRIT 
3321 045760 012704 050350 MOV #TI7PK2,R4 GET WRITE SUBSYSTEM COMMAND PACKET 
3322 045764 010465 000000 MOV R4, TSDB(RS) SET =. renee Mh ae TO EXECUTE 
3323 045770 004737 016336 JSR 5 SSR sWAIT F SET 
3324 045774 FORCERROR vj gabr One Ce ERROR IF os 
3325 046010 103407 BCS 160 :BR IF CARRY SET (GOOD RETUR 
3326 046012 010001 MOV RO,R1 3 SAVE CONTENTS OF TSSR 
3327 046014 NEXT. ERRNO 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST SEQ 0206 

3328 046014 152$: ERRDF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
046014 104455 TRAP CSERDF 
046016 001207 -WORD 647 
046020 047036 -WORD 1175SSR 
046022 012046 «WORD PKTSSR 

3329 046024 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

3330 046030 160$: CKLOOP LOOP ON ERROR, IF FLAG SET 

333) 104406 TRAP CSCLP1 

3332 $ Do a wih a Peersiee Write Misc to Reset FIFO 

3333 046032 004737 050004 JSR sSETUP PKT FOR WRITE MISC ~ yt FIFO 

3334 046036 012704 050350 MOV ari? 7PK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 

3335 046042 010465 000000 MOV R4, TSDB(RS) ise THE PACKET ADDRESS TO EXECUTE 

3336 046046 004737 016336 JSR PC. CHKTSSR WAIT FOR SSR TO SET 

3337 046052 FORCERROR 162$ s@@DFORCE ERROR IF FORCER=1 
046066 103407 BCS 170$ :BR IF CARRY SET (GOOD RETURN) 

3339 046070 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3340 046072 NEXT. ERRNO 

3341 046072 162$: ERRDF ERRNO, T172SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
046072 104455 TRAP CSERDF 
046074 001210 WORD 8 
046076 046662 -WORD 1172SSR 
046100 012046 -WORD PKTSSR 

3342 046102 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 

3343 046106 170$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

5364 046106 104406 TRAP CSCLP1 

3345 : Do a Write Subsystem READ STATUS 

3346 : If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 

3347 3 signals NOT=0 Then Print Error 

3348 046110 004737 047764 JSR PC, T17SRD sSETUP PACKET FOR READ pe 

3349 046114 012704 050350 MOV #T17PK2,R4G [GET WRITE SUBSYSTEM COMMAND P. CKET 

3350 046120 010465 000000 MOV R4, TSDB(RS) iSET THE PACKET ADDRESS TO EXECUTE 

3351 046124 004737 016336 JSR PC. CHKTSSR WAIT FOR aren TO SET 

3352 046130 FORCERROR 177$ s@@DFORCE ERROR IF oe 

3353 046144 103407 BCS 180$ BR IF CARRY Y SET (GOOD RETURN) 

3354 046146 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

3355 046150 NEXT.ERRNO . 

3356 046150 1778: ERRDF ERRNO,T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
046150 104455 TRAP CSERDF 
046152 001211 eWORD 649 
046154 046726 -WORD T1173SSR 

! 046156 012046 -WORD PKTSSR 

3357 046160 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

3358 046164 180$: CKLOOP [LOOP ON ERROR, IF FLAG ser 
046164 104406 cScLP 

3359 046166 004737 050146 JSR PC. TI7SETEXP :SET WORDS 0-7 EXPDSRECY (wot Testing) 
046172 012701 046402 MOV #TIZEXSTA,RI 3GET EXPECTED READ STATUS 

3361 046176 012702 050242 MOV #117BF STA.R2 :GET RECV READ STATUS 

3 046202 011211 MOV (R2),(R1) sSET EXPD WORD #8 = RECV TEMP 

3363 046204 042711 002000 BIC #S1.ICER,(R1) sSET ExXPD ICER =0 

3364 046210 pesett 001000 BIC #S1.1FMK,(R1) sSET EXPD IFMK =0 

3365 046214 042711 000400 BIC #S$1. pe sSET EXPD IHER =0 

3366 046220 016261 000002 000002 MOV 2(R2) -2(R1) sSET EXPD WORD #9 = et (NOT TESTING) 

3367 046226 005000 CLR RO sHIGH RECV ADDRESS FOR C KMSG2 

3368 046230 012701 070826 MOV #T17BFR,R1 :LOW RECV ADDRESS FOR cKMSee 

3369 046234 012702 04636 MOV #T17EXP.R2 sEXPD ADDRESS 





EE 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST SEQ 0207 
3370 046240 012703 000024 MOV #20.,R3 NUMBER OF BYTES T0 COMPARE 
3371 046244 004737 011500 JSR PC, CKMSG2 TEXPD EQUAL FECV 
3372 046250 FORCERROR 192$,NOTSSR aad 
3373 046260 103404 BCS 200s 'BR IF YES 
3374 046262 NEXT.ERRNO 
3375 O46c6¢ 192$: ERRHRD ERRNO,T177CMP,MSGSTAT REPORT ERROR 
046262 104456 TRAP  CSERHRD 
046264 001212 .WORD 650 
6266 047654 ;WORD 1177CMP 
046270 012350 “WORD MSGSTAT 
3376 046272 200$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
046272 104406 TRAP — C$CLP1 
3377 
3379 046274 2508: 
3380 046274 FORCEXIT 260$ 
3381 046304 005237 002310 INC COUNT :GET NEXT BYTE COUNT 
3382 046310 023727 002310 000101 CMP COUNT, #65. [DONE ALL BYTES? 
3383 046316 101002 BHI 2608 ‘BR IF YES 
3384 046320 000137 045744 JMP 150$ 'D0 ANOTHER BYTE COUNT 
3385 046324 ) 260$: 
3387 046324 ENDSUB 34/4111111/4/7 END SUBTEST ////////747/ 
046324 : 110064: 
046324 104403 TRAP  C$ESUB 
3389 046326 005737 002222 TST FATFLG ZANY FATAL ERRORS ? 
. 3390 046332 001402 BEQ 300$ [BRANCH IF NOT 
3391 046334 004737 017202 JSR PC, CKDROP ;TRY TO DROP iy UNIT 
3392 046340 004737 016456 > 300$: JSR PC. TSTLOOP [D0 ITERATION 
3393 046344 103002. BCC 305$ :BR IF NO 
3394 046346 000137 040404 JMP T17LOOP [LOOP UNTIL ITERATIONS DONE 
3395 046352 305$: 
3397 046352 EXIT TST SIAIIIAIAAS EXIT TEST SA44744447/ 
046352 104432 TRAP — CSEXIT 
a 046354 002112 «WORD 110056-. 


3399 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST SEQ 0208 
3401 3* 
s706 zLOCAL STORAGE FOR THIS TEST 
3208 
3406 046356 T17MSK: sMASK OF UNTESTED BITS in READ STATUS BYTES 
3407 S UNTESTED BITS ARE SET TO 1 
3408 046356 377 -BYTE *%*C<000> BY TE 0 MASK 
3409 046357 037 BYTE *(<340> sBYTE 1 MASK (PARERR, IRESV2, IRESV1) 
3410 046360 360 -BYTE “C<017> sBYTE 2 (TIMER A, TIMER 8, UNDEF INED<1:0>) 
zi) 046361 000 -—BYTE 0O [MAKE IT EVEN 
3413 046362 TI7EXP: sBEGIN EXPECTED DATA BUFFER 
3414 046362 000000 -WORD 0 $ AGE TYPE 
3415 046364 000000 ~ WORD 0 sDATA FIELD LENGTH 
3416 048 WORD 0 sRBPCR 
3417 0463 000000 -WORD 0 é 
3418 046372 000000 eWORD 0 :xXST1 
3419 046374 000000 -WORD 0 sKXST 
3420 046376 000000 -WORD 0 zXST 
3421 046400 000090 eWORD 0 2XST4 (ALWAYS PRESENT FOR WRITE SUB.) 
3422 046402 TI7EXSTA: .BLKB 66. sEXPECTED READ STATUS AND WRITE FIFO DATA 
 ngt4 046504 T17EXEND: sEND EXPECTED DATA BUFFER 
$052 046504 TI7WFDATA: .BLKB 66. sWRITE FIFO EXPECTED DATA BUFFER 
3427 $¢ 
3428 ;LOCAL TEXT MESSAGES FOR TEST 
3230 ° 
3431 046606 106 111 106 TST17ID: eASCIZ ‘FIFO Exerciser’ 
3432 046625 127 122 111 TI7SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
3433 046662 127 122 111 T172SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
3434 046726 127 122 111 TI73SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
3435 046773 127 122 111 T174SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Ner) Failed’ 
3436 047036 127 122 111 TI75SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Failed’ 
3437 047102 127 122 111 T176SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read FIFO) Failed’ 
3438 047145 106 111 106 TI71CMP:.ASCIZ ‘FIFO Status in WORD #9 Incorrect after Initialize’ 
3439 047227 122 145 141 T172CMP:.ASCIZ ‘Read FIFO Data not equal to Write FIFO , Data is i , WORD #8" 
3440 047323 106 111 106 TI73CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect after WRITE FIFO 
3441 047407 106 111 106 TI74CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect after READ FIFO’ 
3442 047472 122 145 141 TI75CMP:.ASCIZ ‘Read FIFO Data not equal to Write FIFO Data’ 
3443 047546 106 111 106 TI76CMP:.ASCIZ ‘FIFO Status (In WORD #9) Incorrect after READ FIFO from an Empty FIFO" 
sae 04765 106 111 106 vidal ty "FIFO Status (In WORD #9) Incorrect after RESET FIFO 
3446 
3447 i+ 
08 3; CLEAR MESSAGE BUFFER 
3450 047740 T17CLRBUF : : 
3451 047746 SAVREG SAVE R1-R5 UNTIL = A 1, 
3452 047744 012701 050222 MOV #T17BFR,R1 GET MESSAGE BUFFER ADDRESS 
3453 047750 012702 000120 MOV #11 7BENG=117BFR, R2 SIZE of MESSAGE BUFFER IN BYTES 
3454 047754 105021 10$: CLRB (R1)+ :CLEAR A BYTE 
3455 047756 005302 DEC RD DONE? 
3456 047760 003375 BGT 10$ ‘BR IF NO 
3457 047762 000207 RTS PC RETURN 
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i+ 
; SETUP T17PK2 PACKET FOR READ STATUS 


T17SRD: 
004737 047740 JS PC, T17CLRBUF : CLEAR MESSAGE BUFFER 
012700 050360 MOV #TI7DT2,R WRITE SUBSYSTEM DATA BUFFER 
112720 000005 MOVB aPu. RDSTATUS, (RO) + STORE READ STATUS COMMAND IN BSELO 
105010 CLRB = (RO) :CLEAR BSEL1 
0207 RTS PC SRETUR 
3+ 
: SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 
TI7RSFIF: 
00473 04774 JSR PC, T17CLRBUF sCLEAR MESSAGE BUFFER 
012700 050360 MOV #Ti70T2, RO [WRITE SUBSYSTEM DATA BUFFER 
112720 000010 MOVB *PU. WMISC, (RO)+ ZSTORE WRITE MISCELLANEOUS IN BSELO 
112710 000030 MOVB  #MS.RSFIF 'MS.RSTAP, (RO) : STORE BSEL1 CLEAR FIFO CODES 
000207 RTS PC SRETURN 
3; SETUP T17PK2 PACKET FOR WRITE NPR 


004737 047740 


000020 


+ 
: SETUP 


: INPUT: 


004737 047740 


050360 
000004 


005022 
112122 10$: 


000207 


"JSR PC,T17CLRBUF 


T17WF IF : 


"RO CONTAINS BSEL1 NPR DATA 


SETS NP.WRP SINCE IF 0 IT WRITES WRONG PARITY. 


CLEAR MESSAGE BUFFER 


MOV aTi7DT2, [WRITE SUBSYSTEM DATA BUFFER 
MOVB #PW.WNPR,(R1)+ SSTORE WRITE NPR IN BSELO 
BIS #NP “RP RO [DON'T WRITE WRONG PARITY 
MOVB = RO, (R SSTORE NPR DATA IN BSEL1 

RTS PC RETURN 


T17PK2 PACKET FOR WRITE FIFO 


RO CONTAINS BYTE COUNT 
R1 CONTAINS DATA PATTERN BLOCK ADDRESS 


SAVREG sSAVE R1-R5 UNTIL ty RETURN 
JSR PC,117CLRBUF :CLEAR MESSAGE BUFFER 

MOV #TI7DT2,R WRITE SUBSYSTEM DATA BUFFER 
MOVB *Pu. WF IFO, (R2)+ STORE WRITE FIFO IN BSELO 
MOVB RO, (R2)+ sSTORE BYTE COUNT IN BSEL1 
CLR (R2)+ sCLEAR SEL2 (UNUSED 

MOVB (R1)+,(R2)+ STORE Ary PATTERN BYTE 

DEC RO DONE ALL BYTES? 

BGT 10$ 3BR IF 

RTS PC sRET 


SEQ 0209 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST SEQ 0210 
3315 : SETUP 117PK2 PACKET FOR READ FIFO 
3517 + INPUT: 

3518 : RO CONTAINS SEL2 BYTE COUNT 

3520 050106 TI7RFIF: 

3521 050106 004737 047740 JSR TI7CLRBUF CLEAR MESSAGE BUFFER 

3522 050112 012701 050360 MOV air WRITE SUBSYSTEM DATA BUFFER 
3523 050116 112721 000003 MOVB ss #P, Rr. (R1)+¢ {STORE READ FIFO IN BSELO 
3524 050122 110021 MOVB ~~ RO, ¢ sSTORE BYTE COUNT IN BSEL1 
352 050124 000207 . RTS PC RETURN 

3527 : CLEAR EXPECTED DATA MESSAGE BUFFER 

3529 050126 TI7CLEXP: 

3530 050126 012701 046362 MOV ATI7EXP, 2GET EXPD ADDRESS 

3531 050132 012700 000122 MOV AT PEXEND-T17EXP, RO [GET EXPD SIZE 

3532 050136 105021 10$:  CLRB  (R1)+ ‘CLEAR A BYTE 

3533 050140 005300 DEC RO DONE? 

3534 050142 003375 BGT 10$ :8R IF NO 

3535 050144 000207 RTS PC RETURN 

3536 

3537 * 

3338 sSet WORDS 0-7 of expd message buffer = to recy since not testing 
3540 050146 T17SETEXP: 

3541 050146 012702 046362 MOV #T17EXP,R2 :GET EXPD 

3542 050152 012703 050222 MOV #T17BFR.R3 GET READ STATUS RECV BUFFER 
3543 050156 012700 000010 MOV #8.,RO ZSET WOR Ds. 0- 7 EXP=RECV 

3544 050162 012322 5$: MOV (R3)+, (R2)+ :SeT EXPD=R 

3545 050164 005300 DEC RO ONE WORDS Coe? WORDS? 

3546 050166 003375 BGT 5$ ‘BR IF NO 

3547 050170 000207 RTS PC RETURN 

3550 050200 .=<. 108177770 

3553 [WRITE CHARACTERISTICS COMMAND PACKET 

3555 050200 T17PACKET: :COMMAND PACKET FOR TEST 
3556 050200 100004 «WORD 100004 SWRITE CHARACTERISTICS COMMAND, WITH ACK 
3557 050202 050210 <WORD T17DATA TADDRESS OF CHARACTERISTICS BLOCK 
3558 050204 000000 .WORD 0 

3559 050206 000012 .WORD 10. sMINIMUM MESSAGE PACKET SIZE 
3561 050210 TI7DATA: ;CHARACTERISTICS DATA BLOCK 
3562 050210 050222 .WORD T17BFR ZADDRESS OF MESSAGE BUFFER 
3563 050212 000000 «WORD 0 

3564 050214 000024 .WORD 20. 3LENGTH OF MESSAGE BUFFER 
3565 050216 000000 .WORD 0 7ESS,ENB,EAI,ERI 

3566 050220 000000 .WORD 0 ZEXTENDED FEATURES UNIT NO. E1.. 
3568 

3569 ZMESSAGE BUFFER FOR ALL TEST 6 COMMANDS 

3571 050222 T17BFR: ZBEGIN MESSAGE BUFFER 

3572 050222 000000 .WORD 0 : GE TYPE 


; A Y 
3573 050224 000000 -WORD 0 sDATA FIELD LENGTH 
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TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 


3601 


SEQ 0211 


3574 050226 000000 WORD 0 sRBPCR 
3575 050230 000000 -WORD 0 2xXSTO 
3576 050232 000000 -WORD 0 zxsT1 
3577 050234 00000 -WORD 0 sxST2 
3578 050236 000000 WORD OQ sXSTS 
3579 050240 00000 WORD 0 XST4 (ALWAYS PRESENT os ry SUBSYSTEM 
3580 050242 TI7BFSTA: .BLKB 64. READ STATUS AND WRITE FIFO BUFFER 
326) 050342 T17BEND: END OF MESSAGE BUFFER 
seer sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
3586 050350 -=<.+1028177770 
3588 050350 T17Pk 2: 
3589 050350 100006 -WORD P.WRTSUB!P.ACK WRITE SUBSYSTEM WITH ACK 
3590 050352 050360 WORD T17DT2 LOW ADDRESS OF DATA BLOCK 
3591 050354 000000 WORD 0 sHIGH ADDRESS OF DATA BLOCK 
3296 050356 000012 WORD 10. MINIMUM MESSAGE PACKET SIZE 
3594 050360 T17D0T2: 3DATA BLOCK 
3595 050360 000 -BYTE 0 sBSELO 
3596 050361 000 -BYTE 0 2BSEL1 
3597 050362 000000 WORD 0 3SEL2 
Se06 050364 -BLKB 66. WRITE FIFO DATA OUTPUT BUFFER 
3600 050466 ENDTST 
050466 L10056: 
050466 104401 TRAP CSETST 


—t et 


.——— SO 


TSVS = HARDWARE TESTS MACRO M1113 25-MAY-82 09:19 PAGE 112 


TEST «@: STATIC TRANSPORT BUS INTERFACE 1EST SEQ 0212 
ety -SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
5 + 
3605 3; TEST DESCRIPTION: 
3606 3 
3607 3 
3608 3; TEST STEPS: 
3609 ; 
3610 3 REPEAT FOR LOOPCNT 
3611 ; BEGIN 
3612 : Write to TSSR register to soft initialize the controller 
3613 5 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
3614 3 If Extended Features Hardware Switch Clear then: 
3615 : Do Write Sub syetes Write Miscellaneous to Set Extended Features. 
3616 $ Do WRITE CHARACTERISTICS to select reserved unit 7 
3617 : Do a Write Subsystem READ STATUS 
319 ; ar transport interface signals are asserted then Print Error 
3620 se 
3621 
3622 
3623 050470 BGNTST 
050470 T7:: 
3628 050470 012700 051176 MOV #TST181ID,RO ay MESSAGE re IDENTIFY TEST 
3629 050474 004737 016510 JSR PC TSTSETUP O INITIAL TEST SETUP 
3630 050500 012737 000012 002216 MOV #10. ,LOOPCNT < PERT OUN 10 ITERATIONS 
3631 050506 T18LOOP: 
3632 : . Write to TSSR register to soft initialize the controller 
3633 050506 S$: 
3634 050506 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO aoty INITIALIZE 
3635 050512 103405 BCS 10$ ‘BR IF SOFT INIT OKA 
3636 050514 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
3637 050516 ERRDF ERRNO,SFIERR,SFIMSG ZDEVICE FATAL DURING INIT 
050516 104455 TRAP CSERDF 
050520 001274 -WORD 700 
050522 003652 eWORD SFIERR 
33 050524 012034 eWORD SFIMSG 
3639 g Do whi” “Thm to check for Exvendes poatwes Switch 
3640 050526 005037 002222 10$: CLR TFLG sCLEAR FATAL ERROR FLA 
3641 050532 012704 051660 MOV aT iBPAcKer, R4 [GET THE ADDRESS OF COMMAND PACKET 
3642 050536 004737 010662 JSR PC,WRICHR 3D0 WRITE CHARACTERISTICS COMMAND 
3643 050542 FORCERROR 12$ 3; @aDFORCE os IF FORCER=1 
3644 050556 103407 BCS 15$ zBR IF CARRY SET (GOOD RETURN) 
3645 050560 010001 MOV RO,R1 sSAVE CONTENTS OF ISSR 
3646 050562 NEXT. ERRNO 
3647 050562 12$: ERRDF ERRNO, T18SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
050562 104455 TRAP CSERDF 
64 001275 eWORD 701 
050566 051235 -WORD T18SSR 
050570 012046 -WORD PKTSSR 
3648 050572 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
3649 050576 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
3650 050576 104406 TRAP CSCLP1 
3651 3 If Extended Features Hardware Switch Clear then: 
3652 ; Do Write sussyeten Write Miscellaneous to Set Extended Features. 
365 050600 012701 051702 MOV #T18BFR,R1 sMESSAGE BUFFER ADDRESS 





H 1 
TSVS =_HARDWARE TESTS MACRO M1113 25-MAY-82 09:19 PAGE 112-1 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST SEQ 0213 


3654 050604 032761 000200 000012 BIT #X2. EXTF,XST2(R1) oe FEATURES SWITCH SET? 
3655 050612 001026 BNE a3 YES 
3656 050614 004737 051526 JSR Ssieure (oF up PACKET FOR WRITE MISCELLANEOUS 
3657 050620 012704 051730 MOV ari GET WRITE SUBSYSTEM COMMAND PACKET 
3658 050624 010465 000000 MOV Rs, Ween tes) sSET THE PACKET ADDRESS TO EXECUTE 
3659 050630 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
3660 050634 ———' 22$ s@aDFORCE my IF —— 
3661 050650 103407 BCS 30$ sBR IF CARRY SET (GOO RETURN) 
3662 050652 010001 MOV RO,R1 3SAVE CONTENTS OF PoSR 
3663 050654 NEXT. ERRNO 
050654 22$: ERRDF  ERRNO,T182SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSERDF 
050656 001276 -WORD 702 i 
051272 - WORD Tis2ssr | 
012046 «WORD PKTS 
3665 050664 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
3666 050670 30$: CKLOOP ;LOOP ON ERROR, IF FLAG SET | 
050670 104406 TRAP CSCLP1 
! 
| 
3669 3 fe =, CHARACTERISTICS to select reserved unit 7 
3670 050672 005037 002222 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
3671 050676 012704 051669 MOV PT ISPACKET, RG :GET THE ADDRESS OF COMMAND PACKET 
3672 050702 004737 010662 JSR PC,WRICHR 3D0 WRITE CHARACTERISTICS COMMAND 
3673 050706 FORCERROR 42$ ciany ah ERROR IF —— 
3674 050722 103407 BCS 50$ 3;BR IF Y SET (GOOD RETURN) 
3675 050724 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
3676 050726 NEXT. ERRNO 
3677 050726 42$: ERRDF ERRNO,T18SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
050726 104455 TRAP CSERDF 
050730 001277 -WORD 703 
050732 051235 -WORD T18SSR 
050734 012046 -WORD PKTSSR 
3678 050736 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
3679 050742 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
050742 104406 TRAP CSCLP1 
3681 3 a accevee © putter 
3682 050744 012701 051702 :GET MESSAGE BUFFER ADDRESS 
3683 050750 013700 051674 mov TIBDATASS. RO SIZE OF MESSAGE BUFFER IN BYTES j 
050 105021 60$: CLRB (R1)+ ;CLEAR A BYTE 
3685 050756 005300 DEC RO : DONE? 
050760 003375 BGT 60$ BR IF NO 
3 Do a write 2 Ppereten READ STATUS’ 
3688 050762 004737 051506 JSR sSETUP PACKET FOR READ a. 
3689 050766 012704 051730 MOV ATL R4 GET WRITE SUBSYSTEM LOMMAND PACKET 
3690 050772 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS To CXECUTE 
3691 050776 004737 016336 JSR PC, CHKTSSR SWAIT FOR SSR TO SET 
3692 051002 FORCERROR 62$ s@QDFORCE ERROR IF FORCER=1 
3693 051016 103407 BCS 70$ 3BR IF CARRY SET (GOOD RETURN) 
3694 0510206 010001 MOV RO,R1 zSAVE CONTENTS OF TSSR 
3695 051022 NEXT. ERRN | 
3696 051022 62$: ERRDF ERRNO,T183SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
051022 104 ae Cae ROF 


-WORD T183SSR 
-WORD PKTSSR 
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TRANSPORT BUS INTERFACE TEST 


002222 


051550 
051702 


011500 


002222 


917202 
016456 


050506 


70$: 


82$: 


90$: 


160$: 


165$: 


INC FATFLG 
CKLOOP 


3SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG ra 


SEQ 0214 


CSCLP1 


Set first 8 words of expd message buffer = oo recv since not testing 


Set unused oits in Read Status ex 
TI8SETEXP 


JSR PC, 


If any transport interface signals 


MOV #T18BFR,R1 
MOV m0 ns oR2 


MOV # 

JSR PC, CKMSG2 
FORCERROR 82$,NOTSSR 
BCS — 

NEXT 


-ERR 
ERRHRD ERRNO, TI8CMP ,MSGSTAT 


CKLOOP 


TST FATFLG 
160$ 


JSR PC, CKDROP 
JSR PC. TSTLOOP 
8 165$ 


JMP T18LOOP 
EXIT TST 


ed equal rc 
1°aune Ex EXPD TO RECV 


:LOW yt ADDRESS FOR CKMSG2 
sEXPD ADDRESS 

{NUMBER OF WORDS | TO COMPARE 
sEXPD EQUAL RECV? 

;aad 

BR IF YES 

REPORT ERROR 


- WORD 
LOOP ON ERROR, IF FLAG a 


s ANY FATAL ERRORS ? 
2BRANCH IF 


AN NOT 
TRY TO DROP THE UNIT 
:d0 Lge TIONS? 


NO 
SLOOP UNTIL ITERATIONS DONE 


TRAP 
- WORD 


“g A. asserted then Print Error 
sHIGH RECV ADDRESS FOR CKMSG2 


CSERHRD 
705 
T18CMP 
MSGSTAT 
CSCLP1 


CSEXIT 
L10065-. 
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| TEST 7: STATIC TRANSPORT BUS INTERFACE TEST SEQ 0215 
| 3727 3¢ 
3728 ;LOCAL STORAGE FOR THIS TEST 
—B : 
3731 051142 T18MSK: sMASK OF UNUSED BITS IN READ STATUS BYTES 
| 3732 05114¢ 377 -BYTE *C<000> [BYTE 0 MASK 
3733 05114 037 -BYTE  *C€<340> ‘BYT 
| 3734051144 ~=—«100 “BYTE  “C<277> “BYTE 2 
Hey 051145 000 -BYTE 0O sMAKE IT EVEN 
3737 051146 TI8EXP: sEXPECTED DATA BUFFER 
3738 051146 000000 eWORD 0O “MESSAGE TYPE 
3739 051150 000000 eWORD 0 sDATA FIELD LENG 
3740 051152 000000 eWORD 0 sRBPCR 
3741 051154 eWORD 0 sxSTO 
3742 051156 000000 -WORD 0 sxXSTl 
3743 051160 000000 eWORD 0 sxST2 
3744 051162 000 eWORD 0 sxST3 
3745 051164 0000 -WORD 0 *XST4 (ALWAYS present FOR WRITE SUB) 
3746 051166 000000 eWORD 0 TREAD §$ STATUS BYTE 1/0 
oH 051170 0000 eWORD 0 *READ STATUS BYTE 2 
3749 051172 377 020 T18xS: .BYTE 377,020 sREAD STATUS BYTE 0/1 EXPECTED BASE 
es 051174 000000 ~WORD 0 sREAD STATUS BYTE 2 EXPECTED BASE 
3752 se 
$oe7 ;LOCAL TEXT MESSAGES FOR TEST 
3755 
3756 051176 123 164 141 TST18ID: ASCIZ ‘Static Transport Bus Interface’ 
3757 051235 127 122 111 T1I8SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
3758 051272 127 122 111 T182SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
3759 051336 127 122 111 T183SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed' 
3760 051403 124 162 141 TI8CMP: rey ‘Transport Bus Interface Signals NOT Negated After Unit 7 Selected’ 
3762 
3763 
sree ; SETUP T18PK2 PACKET FOR READ STATUS 
3766 051506 718SRD: 
3767 051506 SAVREG tes | R1-R5 UNTIL NEXT RETURN 
3768 051512 012700 051740 MOV #T18DT2,R0 WRITE SUBSYSTEM DATA BUFFER 
3769 051516 112720 000005 MOVB #Pw. RDSTATUS, (RO) + STORE READ STATUS COMMAND IN BSELO 
3770 051522 105010 CLRB (RO) *CLEAR BSEL1 
3771 051524 207 RTS PC sRETUR 
3772 
3773 s¢ 
aire : SETUP T18PK2 PACKET FOR WRITE MISC. 
3776 051526 TI8SMISC: 
3777 051526 SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
3778 051532 012700 051740 MOV #T18DT2,R0 SWRITE SUBSYSTEM DATA BUFFER 
3779 051536 112720 000010 MOVB #Pu. MISC, (RO)+ sSTORE WRITE MISCELLANEOUS IN BSELO 
3780 051542 112710 000200 MOVB #MS.EXT, (RO) STORE INVERT EXTENDED FEATURES IN BSEL1 
sre) 051546 000207 RTS PC ;RETURN 
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| TEST 7: STATIC TRANSPORT BUS INTERFACE TEST SEQ 0216 
784 :Set first 8 words of expd message buffer = to recy since not testing 
3ee ; Set unused bits in Read Status expd equal rcvd 
3787 051550 T18SETEXP: 

3788 051550 012702 051146 MOV #TIBEXP,R2 3GET EXPD 

3789 051554 012703 051702 MOV #T18BFR *R3 +t READ Ba a. RECV BUFFER 

790 051560 012700 000010 MOV. #8. ROW sSET FIRST 8 WORDS EXP=RECV 

| 3791 051564 012322 5$: MOV (R35+, (R2)+ :SET EXPD=R ECV 

792 051566 005300 DEC RO +f fa 8 WORDS? 

3793 051570 003375 BGT . 5$ ‘BR 

794°051572 012701 051142 MOV #T1 we R1 GET UNUSED BIT MASK 

3795 051576 013712 051172 MOV T18XS, (R2) sSETUP BASE EXPECTED BYTE 1/0 
3796 051602 013762 051174 000002 MOV TIBxS#2, 2(R2) ZSETUP BASE EXPECTED BYTE 2 

3797 051610 011300 MOV (R3), 3GET RECV BYTE 1 AND BYTE 0 

3798 051612 041100 BIC (Rid RO ral ALL BUT 

3799 051614 040012 BIC RO, (R2) :CLEAR UNUSED I 

3800 051616 050012 BIS RO, (R2) SET UNUSED Egy RECV FOR COMPARE 
3801 051620 016300 000002 MOV 2(R3),RO :GET RECV BYTE 

3802 051624 046100 000002 BIC 2(R1),RO :CLEAR ALL BUT UNUSED 

3803 051630 040062 000002 BIC RO,2(R2) :CLEAR UNUSED IN EXPD 

3804 051634 050062 000002 BIS RO,2(R2) sSET UNUSED EXPD=RECV FOR COMPARE 
3805 051640 105062 0000035 CLRB 3(R2) ZCLEAR EXPD BYTE 3 (UNUSED) 

3806 051644 105063 000003 CLRB 3(R3) [CLEAR RECV BYTE 3 (UNUSED) 

iad 051650 000207 RTS PC RETURN 
At 051660 -=<.+10>8177770 
siz sWRITE CHARARTERISTICS COMMAND PACKET 
3815 051660 TI8PACKET: arte e PACKET FOR TEST 

3816 051660 100004 eWORD 100004 WRITE CHARACTERISTICS COMMAND, WITH ACK 
3817 051662 051670 -WORD TI8DATA S ADDRESS OF CHARACTERISTICS BLOCK 
3818 051664 000000 -WORD 0 

4M 051666 000012 -WORD 10. sMESSAGE PACKET MINIMUM SIZE 

3821 051670 TI8DATA: s CHARACTERISTICS DATA BLOCK 

3822 051670 051702 -WORD T18BFR sADDRESS OF MESSAGE BUFFER 

3823 051672 000000 -WORD 0 
3824 051674 000024 eWORD 20. LENGTH OF RESSAGE BUFFER 

5 051676 eWORD 0 3sESS,ENB,EA 

sa50 051700 000007 eWORD 7 SSELECT RESERVED UNIT 7 
3828 
3829 051702 T18BFR: sMESSAGE BUFFER 

3830 051702 000000 -WORD 0 SMESSAGE TYPE 

3831 051704 000000 eWORD 0 DATA FIELD LENGTH 

3832 051706 -WORD 0 sRBPCR 

3833 051710 000000 eWORD 0 sXST 

3834 051712 000000 -WORD 0 3XST1 

3835 051714 000000 -WORD 0 eXST 
3836 716 000 eWORD 0 :XST 

3837 051720 00 -WORD 0 =XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
3838 051722 000 -WORD 0 SREAD STATUS BYTE 1/0 RETURNED 
3839 051724 000000 eWORD 0 TREAD STATUS BYTE 2 


iWRITE SUBSYSTEM READ STATUS COMMAND PACKET 


fy 





ae 


ae 
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| TEST 7: STATIC TRANSPORT BUS INTERFACE TEST SEQ 0217 
| 3844 051730 =<. 4108177770 

3846 051730 T18PK2: 

3847 051730 100006 .WORD P.WRTSUB!P.ACK ;WRITE SUBSYSTEM WITH ACK 

3848 051732 051740 “WORD T18DT2 ‘LOW ADDRESS OF DATA BLOCK 

3849 051734 000000 » WORD 0 sHIGH ADDRESS OF DATA BLOCK 

3850 051736 000010 “WORD 8. :BUFFER EXTENT 

3852 051740 T18DT2: sDATA BLOCK 

3853 051740 000 .BYTE 0 'BSELO 

3854 051741 000 “BYTE 0 BSEL1 

3855 051742 000000 “WwORD 0 : 

3856 051744 000000 "WORD 0 : 

3857 

L10065: 


3858 
3859 051746 ENDTST 
051746 
051746 104401 TRAP CSETST 
I 


mene eee ee 


tt 
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par pa 


| TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST SEQ 0218 
1 -SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 
yee 
| 3ae8 : TEST DESCRIPTION: 
3864 ; 
| 3865 ; This test verifies the controller's Transport Bus 
3866 3 drivers, receivers, and — loopback logic. Note 
3867 ; that the Static Transport Bus test must have run 
4 3 correctly for this test to provide meaningful results. 
3870 3; TEST STEPS: 
3871 ; 
3872 3; REPEAT FOR LOOPCNT 
3873 3 BEGIN 
3874 ; Do Subtest 1 = Loopback Control signals test 
3875 : Do Subtest 2 = Loopback Read/Write signals test 
3876 ; Do Subtest 3 - Loopback Write Strobe test 
3877 3 Do Subtest 4 - Loopback Read Strobe test 
3878 3 END 
3879 t<- 
3880 
3881 
3882 051750 BGNTST 
051750 T8:: 
3887 051750 012700 060162 MOV #TST19ID,RO sASCII MESSAGE TO IDENTIFY TEST 
3888 051754 004737 016510 JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
3889 051760 012737 000012 002216 MOV #10. ,LOOPCNT ;PERFORM 10 ITERATIONS 
gene 051766 T19LOOP: 


‘aecmensmetameinia: 
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TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST SEQ 0219 
344 -SBTTL TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
3895 3+4 
3896 ; TEST 8: SUBTEST 1: 
3897 ; 
4 3; SUBTEST DESCRIPTION: 
3900 3 This subtest verifies the Transport Control loopback 
3901 $ path can transmit and receive apt nk e 
3902 ; control signals are all loopback signals other 
Sour ; than the read/write data (IW<7:0> and IR<7:0>). 
Sonn 3 TEST STEPS: 
3907 $ The loopback signals IFAD, ITADO,ITAD1 are the tape unit select 
3908 3 lines. Since reserved unit 7 must remain selected these signals 
3909 $ are always set low. This further means the signals they drive 
ad : (ISPEED, IRDY,IONL) are only tested in the low state. 
3912 ; BEGIN — 
3913 3 Write to TSSR register to soft initialize the controller 
3914 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
3915 3 If Extended Features Hardware Switch Clear then: 
3916 ; Do Write suseyetes Write Miscellaneous to Set Extended Features. 
3917 : Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
3918 : Do a Write Subsystem WRITE NPR to set sage direction out and Loopback 
3919 3 Do Write Subsystem Write Control to CLEAR loopback signals group 1. 
3920 3 Do Write Subsystem Write Format to CLEAR loopback signals group 2. 
3921 $ (the loopback signals have to be cleared here due to the flip-flops 
3922 : that are set on a 1 to 0 transition (IHER,IFMK,ICER)) 
3923 ; Do a Write Subsystem Write Misc to Reset Tape Status F-FLOPS 
3924 3 Do a Write Subsystem READ STATUS 
3925 ; If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 
$959 $ signals NOT=0 Then Print Error 
$058 : ay 7 toes ALL TEST PATTERNS IN TSTBLK TABLE 
3930 ; Do Write Subsystem Write Control to Drive a signals group 1. 
3931 : Do Write masrecen Write Format to Drive loopback signals group 2. 
3932 : Do a Write Subsystem READ STATUS 
3933 ; If loopback data NOT= data sent Then Print Error 
3934 : Do a Write Subsystem Write Misc to Reset Tape Status F-FLOPS 
3935 : Do a Write Subsystem READ STATUS 
3936 : If all Tape Status 2 (ICER,IFMK,IHER) flip-flop 
3937 3 signals NOT=0 Then Print Error 
3939 
3940 oe17ee ; BGNSUB s/IIIISITI11/ BEGIN SUBTEST /////////7/ 
$961 051766 104402 TRAP C$BSUB 
3942 : Write te TSSR register to soft initialize the controller 
3943 051770 5s: 
3944 051770 004737 015774 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
3945 051774 103405 BCS 10$ :BR IF SOFT INIT OKAY 


3947 052000 





010001 


RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 


a e+ 
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TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST SEQ 0220 
952000 164455 TRAP CSERDF 
052002 001440 -WORD 800 

52004 003652 «WORD SFIERR 
052006 012034 -WORD SFIMSG 
948 . Do WRITE CHARACTERISTICS to check for erorees Features Switch 
3949 052010 005037 002222 10$: CLR FATFL ;CLEAR FATAL ERROR FLAG 
3950 052014 012704 062310 MOV aTI9PACKET, R4 :GET THE ADDRESS OF COMMAND PACKET 
3951 052020 004737 010662 JSR PC,WRT O WRITE SOME canon COMMAND 
3952 052024 FORCERROR fog s@QDFORCE ERROR IF FORCER=1 
3953 052040 103407 BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 
3954 052042 010001 MOV A... 4 R1 sSAVE CONTENTS OF TSSR 
3955 052044 NEXT. ERRNO 
3956 052044 128: ERRDF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052044 104455 TRAP CSERDF 
052046 001441 -WORD 801 
052050 060223 -WORD T19SSR 
052052 012046 eWORD PKTSSR 
3957 052054 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
3958 052060 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
052060 104406 TRAP CS$CLP1 
3959 ; If Extended Features Hardware Switch Clear then: 
3960 : Do Write Subsystem Write Miscel Laneous to Set Extended Features. 
3961 052062 012701 062332 MO #T19BFR,R1 SSAGE BUFFER ADD 
3962 052066 032761 000200 000012 BIT #X2. EXTF, xST2(R1) EXTENDED FEATURES SWITCH SET? 
3963 052074 001076 BNE 30$ ;BR YES 
3964 052 737 062162 JSR PC, TISSEXT SETUP PACKET FOR WRITE MISC joven 
3965 052102 012704 062460 MOV #Ti9PK2, R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
3966 052 010465 000000 MOV R4, TSDB(RS) :SET THE oy! ADDRESS TO EXECUTE 
3967 052112 737 016336 JSR PC, CHKTSSR SWAIT FOR SSR TO SET 
3968 052 FORCERROR s@@DFORCE. ERROR IF concent 
3969 052 103407 S 30 :BR IF CARRY SET (GOOD RETURN) 
3970 052134 010001 MOV A..s R 3SAVE CONTENTS OF TSSR 
3971 052136 NEXT.ERR 
3972 052136 228: ERRDF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052136 104455 TRAP CSERDF 
052140 001442 eWORD 80 
052142 060260 eWORD 1T192SSR 
052144 012046 eWORD PKTSSR 
3973 052146 5237 002222 i on FATFLG 3SET FATAL ERROR FLAG 
3974 052152 30$: CKLO ;LOOP ON ERROR, IF FLAG SET 
052152 104406 TRAP CSCLP1 
975 s Do WRITE CHARACTERISTICS to select peseeved unit 7 
3976 052154 005037 002222 CLR FATFLG :CLEAR FATAL ERROR 4 
977 052160 012704 062310 MOV #TISPACKET ,R4 GET THE ADDRESS 0 PACKET 
3978 052164 737 010662 JSR PC,WRTICHR O WRITE CHARACTERISTIC sc 
3979 052170 FORCERROR 42$ s@aDFORCE ERROR IF SFORCER=1 
3980 052204 103407 BCS 50$ :BR IF CARRY SET (GOOD RETURN) 
3981 052206 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
3982 052210 NEXT. ERRN 
3983 052210 42$: ERRDF  ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052210 104455 TRAP CSERDF 
052212 001443 -WORD 803 
o355i¢ 060223 eWORD TI9SSR 
052216 012046 -WORD PKTSSR 
3984 052220 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
3985 052224 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
052224 104406 TRAP CSCLP1 
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TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST SEQ 0221 


3 Do a Write Subsystem WRITE NPR ". get There PS dln A and Loopback 
387 Sr O3sees 012700 000100 MOV #NP.OUT,RO + og 
052700 000040 BIS #NP..LOOP,RO SFT Loorents ENABLE” 
3989 825525 004737 062022 JSR PC, TI9OSNPR SETUP T PK2 FOR WRITE NPR 
3990 052242 012704 062460 MOV ATIOPK2,RG GET URITE SUBSYSTEM COMMAND PACKET 
4 052246 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
ba} 052252 004737 016336 JSR PC, CHKTSSR ‘WAIT se” . TO SET 
3993 052256 FORCERROR 62$ ORCE ERROR IF + ett 
3994 052272 103407 BCS 70$ sBR IF cikay’ SET (GOOD RETURN) 
3995 052274 010001 MOV RO,R1 sSAVE CONTENTS OF ISSR 
3996 052276 NEXT. ERRNO 
3997 052276 62$: ERRDF  ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052276 104455 TRAP CSERDF 
052300 001444 WORD 
052302 060371 eWORD 119453 
052304 012046 -WORD PKTSSR 
3998 052306 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
3999 052312 70$: CKLOOP ;LOOP ON ERROR, IF FLAG ie 
052312 104406 C$CLP1 
4000 3 Do Write Subsystem Write Control to CLEAR vs wey viene 6 as Ve 
4001 ; Do Write ee ge Write Format to CLEAR loopback signals group 
4002 ; (the loopback signals have to be cleared here due to the 4 
4003 : that are set on a1 to 0 transition (IHER, IFMK,ICER)) 
4004 052314 005000 CLR RO ITE 0°S 
4005 052316 042700 900200 BIC #WC.IFAD,RO [IFAD MUST ALWAYS =0 
4006 052322 042700 000100 BIC #WC. IOTAD, RO :1TADO MUST pas =0 
4007 052326 042700 000040 BIC #WC.11TAD,RO sITAD1 MUST ALWAYS =0 
4008 052332 004737 062122 JSR PC, TISWCTL SETUP PACKET FOR WRITE ee = 
4009 052336 012704 062460 MOV ATIOPK2, RG [GET WRITE SUBSYSTEM COMMAND PACKET 
4010 052342 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
4011 052346 004737 016336 JSR PC, CHKTSSR SWAIT FOR SSR TO SET 
4012 052352 FORCERROR 82$ @aDFORCE ERROR IF roc 1 
4013 052366 103407 BCS 90$ 3BR IF CARRY SET (GOOv RETURN) 
4014 052370 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4015 052372 NEXT. ERRNO 
4016 052372 82$: ERRDF  ERRNO,T197SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052372 104455 TRAP CSERDF 
052374 001445 -WORD 805 
o36778 060543 eWORD T1197SSR 
052400 012046 eWORD PKTSSR 
rr dh 052402 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
018 052406 90$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
05 408 104406 TRAP CSCLP1 
4019 052410 005000 CLR RO 3SET FORMAT DRIVE DATA=0 
4020 052412 004737 062142 JSR PC, TISWFMT TSETUP PACKET FOR WRITE Seg 
4021 052416 012704 062460 MOV ATIOPK2,RG 7GET WRITE SUBSYSTEM COMMAND PACKET 
4022 052422 010465 000000 MOV R4, TSDB(RS) :SeT THE PACKET Aboness TO EXECUTE 
4023 052426 004737 016336 JSR PC, CHKTSSR WAIT ag he TO SET 
4024 0524 FORCERROR 102$ ORCE ERROR IF eens 
4025 052446 103407 BCS 110$ BR IF cikay’ SET (GOOD RETURN) 
4026 052450 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4027 052452 NEXT. ERRN 
102$: ERRDF  ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED 10 set 


CSERDF 
8 


-WORD T198SSR 
«WORD PKTSSR 


TEST 8: 





4029 052462 
4030 052466 
2466 


05 
4041 052540 
4042 052544 

052544 
4044 


4045 
4046 052546 


052614 
4055 052616 
4056 o20es 


py Sa 052624 
630 


4073 052720 
2720 
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005237 
104406 


004737 
012704 
010465 
004737 


103407 
010001 


01 
005237 
104406 


004737 


104456 


D 
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002222 


016336 


002222 


061760 


016336 


002222 


062220 
060062 
062352 


002000 
001000 
0400 
002 


011500 


000002 





110$: 


122$: 


132$: 


140$: 


152$: 


LOOPBACK CONTROL SIGNAL TEST 


INC FATFLG 
CKLOOP 


Do a -— e sygsyetee Write Misc 
JSR 
Wid 9PK2,R4 


V 
MOV RG, TSDBCRSD 
JSR PC, CHKTSSR 
ERR 12 


T.ERRNO- 
ERRDF ERRNO,T192SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Do a Write Subsystem READ STAT 


US 
If all Tape Status 2 (ICER,IFMK, 


pignets | mit Then Print Error 
JSR T19SRD 


MOV aTi9PKS. RG 
MOV R4, TSDB(RS) 


JSR PC; CHKTSSR 
FORCERROR 13 
BCS 140 

+ Me 

NEXT 


- ERRNO 
ERRDF ERRNO, T193SSR,PKTSSR 


FATFLG 


JSR PC, TI9SETEXP 
MOV ATISEXSTA,RI 
MOV #T19BF STA.R2 
MOV (R2), (R1) 

BIC #51. 1CER, (R1) 
BIC #S1.1FMK.(R1) 
BIC #51. IHER, (R1) 
MOV 2(R2), »2(R1) 


MOV #T19BFR,R1 

MOV #TISEXP,R2 

#20., 

JSR PC, CKMSG2 

FORCERROR 152$,NOTSSR 
BCS 160$ 


NEXT. ERRNO 
ERRHRD ERRNO,1197CMP,MSGLOOP 


3SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
to reset e Status F-FLOPS 


3; SETUP OR WRITE MISC Reset Tape Status F-FLOPS 
OMMAND PACKET 


3GET URITE SUBSYSTEM C 
ise THE PACKET ADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 
;@@DFORCE aan IF es 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF SSR 


DEVICE FATAL SSR FAILED aid 


TRA CSERDF 
WORD 807 
WORD T192SSR 
-WORD PKTSSR 


3SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


IHER) flip-flop 
SETUP PACKET FOR READ STATUS 
GET WRITE SUBSYSTEM COMMAND PACKET 
3SET_THE PACKET ADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 

s@a@DFORCE ERROR IF — 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 80 
WORD T193SSR 
«WORD PKTSSR 


3SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
zSET WORDS 0-7 EXPD= oy ¢ (NOT TESTING) 
GET EXPECTED Ae. Tus 

GET RECV aan Ss TATUS. 
zSET EXPD WO rir oy RECV TEMP 


nw 
m 
=< 
Uv 
.~J 
ame 1 
i820 
une 
oO 


SET EXPD IHER =0 

SET EXPD WORD #9 = RECV (NOT TESTING) 
HIGH RECV ADDRESS FOR CKMSG2 

LOW REC RECV y beeness FOR CKMSG 

TNUMBER. OF BYTES | TO COMPARE 

3EXPD EQUAL RECV? 


BR IF YES 


REPORT ERROR 
TRAP CSERHRD 
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8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST SEQ 0223 
052722 001451 «WORD 809 
052724 061263 «WORD 1T197CMP 
052726 013064 «WORD MSGLOOP 

4074 §36730 160$: CKLOOP LOOP ON ERROR, IF FLAG SET 
0527 104406 TRAP CSCLP1 
5 ; REPEAT FOR mL vest PATTERNS IN TSTBLK TABLE 
4076 052732 005037 057774 CLR PREV sINIT 120 TRANSITION FLAG 
4077 0527 012703 002752 MOV ors TOR R3 :GET Ae HH ght. ADDRESS 
2078 052742 012300 200$: MOV (R3)+,R0 7GET A TEST PATTERN 
4079 052744 010337 002316 MOV R3,TSTPTR SAVE POINTER INTO TSTBLK 
4080 052750 042700 000200 BIC #WC.IFAD,RO ZIFAD MUST ALWAYS =0 
4081 052754 042700 000100 BIC #WC.IOTAD,RO 3 ITADO MUST ALWAYS = 
4082 052760 042700 000040 BIC #WC.11TAD,RO Zs ITAD1 MUST ALWAYS = 
4083 052764 010037 002312 MOV 0,DATA ZSET DATA PATTERN 
4084 : Do Write Subsystem Write Control to Drive loopback signals group 1. 
4085 3aad CALL TISCNVT TO SETUP WRITE CONTROL PAT i. 
4086 052770 013700 002312 MOV DA GET TEST PATTERN 
4087 052774 004737 062244 JSR PC, TISCNVT 3; CONVERT PATTERN TO CONTROL DRIVE MASK 
4088 [RO CONTAINS WRITE CONTROL DATA HERE 
4089 053000 737 062122 JSR PC, TISWCTL 3 SETUP PACKET FOR WRITE CONTROL 
4090 053004 012704 eaenes MOV #TIOPK2,RG [GET WRITE SUBSYSTEM COMMAND PACKET 
4091 053010 010465 0000 MOV R4, TSDB(RS) 3SET THE PACKET ADDRESS TO EXECUTE 
4092 053014 004737 o16336 JSR PC, CHKTSSR [WAIT FOR SSR TO SET 
4093 053020 FORCERROR 212$ s@@DFORCE ERROR IF ee 
053034 103407 BCS 220$ 3BR IF CARRY SET (GOOD RETUR 
4095 oeenre 010001 a nen — ZSAVE CONTENTS OF TSSR 
4097 053040 212$: ERRDF ERRNO,T197SSR,PKTSSR sDEVICE FATAL SSR FAILED 70 SET 
053040 104455 TRAP CSERDF 
053042 001452 «WORD 810 
053044 060543 eWORD T197SSR 
053046 012046 -WORD PKTSSR 
4098 053050 005237 002222 INC FATFLG SET FATAL ERROR FLAG 
4099 053054 2208: CKLOOP ;LOOP ON ERROR, IF FLAG oh 
sxe0 053054 104406 TRAP CSCLP1 
4101 3 Do Write nvt tO $e Write Format to Drive secpbech signals group 2. 
4102 :aaD CALL ag om 4 6 SETUP WRITE CONTROL +""aat o 
4103 053056 013700 002312 MOV T TEST PATTERN 
104 053062 737 062244 JSR pel MSeNVT : CONVERT PATTERN TO FORMAT DRIVE MASK 
105 05 300 SWAB RO- WRITE FORMAT DATA ai nie IN HIGH BYTE 
4106 053070 737 062142 JSR PC, TI9WFMT SETUP PACKET FOR WRITE a 
4107 053074 012704 062460 MOV #TIOPK2,RG GET WRITE SUBSYSTEM COMMAND PACKET 
4108 053100 010465 000000 MOV R4, TSDB(RS) SET yo PACKET ADDRESS TO EXECUTE 
4109 053104 737 016336 JSR PC. CHKTSSR [WAIT FOR SSR TO SET 
4110 053110 FORCERROR 2328 Pg ORCE ERROR IF FORCER=1 
4111 053124 103407 BCS 240$ BR IF CARRY SET (GOOD RETURN) 
4112 053126 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
4113 053130 NEXT.E 
4114 053130 232$: ERRDF ERRNO,T1I98SSR,PKTSSR DEVICE FATAL SSR FAILED TO SET 
053130 104455 TRAP CSERDF 
053132 001453 eWORD 811 
053134 060612 «WORD T198SSR 
053136 012046 eWORD PKTSSR 
4115 053140 005237 002222 INC FATFLG SET FATAL ERROR FLAG 
4116 053144 2408: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
053144 104406 TRAP CSCLP1 
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004737 
012704 
010465 


103407 
010001 
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: LOOPBACK CONTROL SIGNAL TEST 


: Do a wath 2 Pgerates READ STATUS 
061760 JSR 
062460 MoV WTigexs, RG 
000000 MOV R4 “SDB(RS) 
016336 JSR PC 4KTSSR 
FORCERROR 252$ 
MOV RO,R1 
NEXT. ERRNO 
252$: ERRDF ERRNO,T193SSR,PKTSSR 
002222 INC FATFLG 
260$: CKLOOP 
3 If loopback data NOT= data sent 
062220 JSR PC, TISSETEXP 
060062 MOV aTiEXSTA, RI 
062352 MOV #T19BFS 
231 MOV DATA, (R ae 
057774 MOV T19PREV,RO 
002312 MOV DATA,R 
000400 MOV #S1. IHER,R4 
BIC R4,(R1) 
BIT R4_RO 
BEQ 75$ 
BIT R4_R3 
BNE 75$ 
BIS (R1) 
001000 275$: MOV #S1.1FMK,R4 
BIC ,(R1) 
BIT RO 
BEQ 280$ 
BIT R4,R3 
BNE és 
BIS R4, (R1) 
002000 280$: MOV #si. ICER, R4 
BIC R4, (R1) 
BIT R4.R 
BEQ 285$ 
BIT R4_R3 
BNE 285$ 
BIS R4,(R1) 
285$: MOV : e 
3 If previous IIDENT=1 and current 
004000 MOV #S1. 1 IDENT, R4 
BIS R4,RO 
057774 BIT R4.TIOPREV 
BEQ 288$ 
BIT R4_R3 
BEQ 288s 
BIC RO 
040000 288$: BIS #51 TORES.RO 
020000 BIS #51. 11RES,RO 
100000 BIC #51. PARERR,RO 


sSETUP PACKET FOR READ ede 

GET WRITE SUBSYSTEM COMMAND PACKET 

:SET THE PACKET ADDRESS TO EXECUTE 

;WAIT seg re TO 

ORCE oo ay IF — 
D RETURN) 


:BR IF char y. SET (GOO 
zSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED Ls gid 


TRA CSERDF 
WORD 812 
WORD T193SSR 
eWORD PKTSSR 
3SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 7 
TRAP CSCLP1 


vee Print Error 
WORDS 0-7 enh. TESTING) 


AD STATUS 
SET EXPD WORD ao i DATA FIRST 


:Bh_IF NO 

sSET EXPD IHER =1 

: SETUP ge EXPECTED 
IFMK =0 


2SET EXPD 

sPREVIOUS =1? 

:BR IF NO 

CURRENT =0? 
R_IF 

sSET EX = 


PD IFMK =1 
SETUP ICER EXPECTED 
XPD CER =0 
F NO 
Ht ae ge =0? 
R_IF NO 
SET po ICER =1 
GET EXPD WORD 
is IIDENT=1 then EXPD= 0 else 1 
; [IDENT 


[ASSUME EXPD=1 
:PREVIOUS LIDENT=1? 
31S ae LIDENT=1? 


3SET D=0 

TRESV XPD ALWAYS=1 
ZIRESV1 EXPD ALWAYS=1 
IGNORE PARERR 


SEQ 0224 





rey 4 053374 
ret 053400 


o 
wi 
rs 
ra 


& 
—s 
~“ 
wv 
oooooo 
NNSOKSRODORNS 


= 
as 
co 
aah 
oooo 


053452 


4193 053524 
053524 
053526 
053530 
053532 

4194 053534 

4195 053540 
053540 


4 
4197 053542 
198 


MMMM) 
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: LOOPBACK CONTROL SIGNAL TEST 


032712 


103407 


103407 


100000 aH #S1.PARERR, (R2) 
100000 BIS #S1.PARERR,RO 
290$: MOV a 
000002 000002 “oe ccna). -2(R1) 
06233 MOV #T19BFR,R1 
06004 MOV ATISEXP, R2 
000024 MOV #20. ,R3 
011500 JSR PC, CKMSG2 
FORCERROR 302$,NOTSSR 
NEXT. ERRNO 
302$: ERRHRD ERRNO,T198CMP,MSGLOOP 
310$: CKLOOP 
é Do a wall e Agereree Write Misc 
200 JSR 
062460 MOV OS igpKS RG 
000000 MOV R4, TSDB(RS) 
016336 JSR PC; CHKTSSR 
FORCE 3 
BCS $ 
MOV RO,R1 
NEXT. ERRNO 
322$: ERRDF ERRNO, T192SSR,PKTSSR 
002222 INC FATFLG 
330$: CKLOOP 
$ Do a Write svpeysten READ STATUS 
061760 JSR PC, T1I9SRD 
062460 MOV #TI9PK2,R4 
000000 MOV R4, TSDB(RS) 
016336 JSR PC,CHKTSSR 
FORCERROR 34 
BCS 350 
MOV RO,R1 
NEXT. ERRNO 
342$: ERRDF ERRNO, T193SSR,PKTSSR 
002222 INC FATFLG 
350$: CKLOOP 
062220 JSR PC, TISSETEXP 
060062 MOV #TISEXSTA,R1 
062352 MOV aT 196r STA, R 


sos PARERR SET IN RECV? 
F NO 


SET IN EXP 
3 SETUP FINAL EXPD IN WORD # #8 
SET EXPD WORD #9 = RECV (NOT TESTING) 
HIGH RECV ADDRESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
sEXPD ADD 
sNUMBER OF BYTES | TO COMPARE 
3EXPD EQUAL RECV? 


TBR IF YES 
REPORT ERROR 


TRAP CSERHRD 

WORD 813 

WORD T198CMP 

-WORD MSGLOOP 
LOOP ON ERROR, IF FLAG SET 

TR CSCLP1 


‘AP 
to Reset Tape Status F-FLOPS 
sSETUP PKT FOR WRITE MISC Soees STATUS 
GET WRITE SUBSYSTEM COMMAND PACKET 
:SET THE PACKET ADDRESS TO EXECUTE 


WAIT FOR SSR 

s@@DFORCE ERROR IF — 
BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
WORD 814 
WORD 1T192SSR 
. PKTSSR 
3SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG a 
CSCLP1 


SETUP PACKET FOR READ STATUS 

GET WRITE SUBSYSTEM COMMAND PACK 

iSET 7 PACKET ADDRESS TO EXECUTE. 
WAIT FOR SSR TO SET 


; @aDFORCE — IF FORCER=1 
BR IF CARRY SET (GOOD RETURN) 
zSAVE CONTENTS OF SSR 


sDEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 
WORD 815 
-WORD 1T193SSR 
«WORD PKTSSR 


3SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG a 


CSCLP1 
zSET WORDS (-7 EXPDRECY’ (Nor TESTING) 
GET EXPECTED READ STATUS 

3GET RECV READ STATUS 


SEQ 0225 


42 


Foy at at at at 
MMPNPPoToPenorforgs 
EN DIN DIN ad cd ed ed od ot od od ed 
N—OVONAULSWN— 
“J 
nN 


053722 
4225 pearee 
053724 


42 
4227 053726 
53734 


4232 053752 

4233 

4234 053752 
053752 
053752 

4235 

4236 053754 
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So 


geoeecere 
NMMMUGNNN— 


703 
737 


012580 
104406 
013737 


104403 





H 
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002000 


000002 
062332 


011500 


002312 
002316 
003062 


052742 


002222 
017202 


000002 


057774 


1: LOOPBACK CONTROL SIGNAL TEST 
1 


362$: 


370$: 


400$: 


460$: 


MOV (R2),(R1) 

BIC #S1.1CER,(R1) 
BIC 1. 1FMK,(R1) 
BIC #S1. THER, (R1) 
ot 2(R2) ,2(R1) 
MOV #T19BFR,R1 
MOV #TI9EXP,R2 
MOV 0.,R 

JSR PC ,CKMSG2 
FORCERROR 362$,NOTSSR 
ats cai 


T. ERRNO 
ERRHRD ERRNO,T197CMP,MSGSTAT 


CKLOOP 
MOV DATA, T19PREV 
MOV TSTPTR,R3 
CMP R3,4TBLEND 
BHIS 400$ 

JMP 200$ 

ENDSUB 

TST FATFLG 

BEQ 460$ 

JSR PC, CKDROP 


SEQ 0226 


:SET EXPD WORD te RECV TEMP 


iSET EXPD ICER 
sSET EXPD IFMK =0 
SET EXPD IHER =0 
D #9 = RECV (NOT TESTING) 


SET EXPD WORD 
HIGH ates seneaae FOR CKMSG2 
Att RECV ADDRESS FOR CKMSG2 


ADDRE 
NUMBER OF BY TES | TO COMPARE 
ZEXPD EQUAL RECV? 


[BR IF YES 
sREPORT ERROR 


TRAP CSERHRD 
«WORD 816 
WORD 1197CMP 
«WORD MSGSTAT 
LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


sSETUP PREVIOUS DATA FOR EXPD CALC. 
;RESTORE pd TSTBLK POINTER 
sEND OF TSTBLK? 


BR IF YES 
:D0 NEXT TSTBLK PATTERN 


S//I111111117 END SUBTEST ////////47/ 
L10067: 
TRAP CSESUB 
ZANY naar ERRORS ? 


BRANCH NOT 
TRY TO DROP THE UNIT 


a ee Se — — 


I 2 
TSVS = HARDWARE TESTS MACRO M1113 25-MAY=82 09:19 PAGE 116 1 
TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST SEQ 0227 | ' 
$366 -SBTTL TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST | 
4248 poe | 
t$28 ; TEST 8: SUBTEST 2: 
¢$23 3; SUBTEST DESCRIPTION: 
4253 : This subtest verifies the Read/Write data loopback path. 
4254 : The Read/Write data signals are IR<7:0> and IW<7:0> 
4255 : respectively. 
4256 ; 
4257 3; TEST STEPS: 
4258 3 
4259 3 
4260 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
4261 3 BEGIN 
4262 ; Write to TSSR register to soft initialize the controller 
4263 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
4264 3 If Extended Features Hardware Switch Clear then: 
4265 3 Do Write nosretes Write Miscellaneous to Set Extended Features. 
4266 3 Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
4267 : Do a Writ» Subsystem WRITE NPR to set tape direction out and Loopback 
4268 : Do a WRITE NPR to set loopback and tape direction OUT 
4269 : Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
4270 : Do a READ FIFO with tape direction OUT to load tape out write latch 
4271 : Do a WRITE NPR to set loopback and tape direction IN 
4272 : Do a WRITE FIFO with byte count equal to 1 and Tape direction IN 
4273 : to strobe loopback data into FIFO. 
4274 : Do a READ FIFO with tape direction IN to read data 
4275 ; If Data read from FIFO NOT= to Data sent Then Print Error 
4276 : Do a Write Subsystem READ STATUS 
4277 : If Input Ready NOT=1 Then Print Error 
4278 ; If Output Ready NOT=0 Then Print Error 
4279 ; If Data In Miss NOT=0 Then Print Error 
eset 3 END 
4282 035766 BGNSUB s///41/111///47 BEGIN SUBTEST ////////// 
053766 104402 . f : TRAP C$BSUB 
4 . Write to TSSR register to soft initialize the controller 
4284 053770 S$: 
4285 053770 004737 015774 JSR PC, SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 
4286 053774 103405 BCS 10$ ‘BR IF SOFT INIT OKAY 
4287 053776 010001 MOV RO.R1 sSAVE CONTENTS OF TSSR 
4288 054000 ERRDF ERRNO,SFIERR,SFIMSG :DEVICE FATAL DURING INIT 
104455 TRAP CSERDF 
054002 001460 -WORD 816 
054004 003652 eWORD SFIERR 
054006 012034 «WORD SFIMSG 
4289 . Do WRITE CHARACTERISTICS to check for Extended Features Switch 
4290 054010 005037 002222 10$: CLR ATFL SCLEAR FATAL ERROR FLAG 
4291 054014 012704 062310 MOV #TISPACKET ,R4 :GET THE ADDRESS OF COMMAND PACKET 
4292 054020 004737 010662 JSR PC ,WRICHR 3D0 WRITE CHARACTERISTICS COMMAND 
4293 054024 FORCERROR 12$ s@@DFORCE ERROR IF FORCER=1 
4294 054040 103407 BCS 15$ 7BR IF CARRY SET (GOOD RETURN) 
4295 054042 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 
4296 054044 NEXT. ERRNO 





TEST 8: 





4297 054044 
054044 
054046 

054050 


054052 
4298 054054 
& 054060 


4 
4302 054062 
& 4066 


054144 
4314 054146 
4315 Series 
054152 


4316 
4317 054154 
431 160 


4323 054204 
4204 
054206 
054210 
054212 
4324 054214 
4325 054220 
054220 
4326 
4327 
4328 
4329 054222 
4330 054226 
4331 054232 
aae 054240 
4334 054244 
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008237 
104406 
012704 
004737 


103407 
010001 


tal 
WAWS 
NNNW 


Sas 
MEAN Sly 
eu88 


012 
010465 
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12$: 


002222 


016336 


002222 


062310 
010662 


002222 


062460 
000000 


15$: 


22$: 


42$: 


50$: 


100$: 


ERRNO, T19SSR,PKTSSR DEVICE FATAL SSR a. 


3SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG re 


If Extended Features Hardware Switch Clear then: 
A sad. Subsystem Write mreces pees to Set rasenese Features. 


DRES 

ZEXTENDED FEATURES SWITCH SET? 
sSETUP PACKET FOR WRITE MISC hareet 
2GET WRITE SUBSYSTEM COMMAND PACKET 
eT to tate = TO EXECUTE 

s@@DFORCE ERRCR IF FORCER=1 
BR IF CARRY SET (GOOD RETuR 
zSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


98F 
308" ~EXTF ,XST2(R1) 


RRERRNO,T192SSR,PKTSSR 


:SET FATAL ERROR FLAG — 
P ON ERROR, IF FLAG ; 


Do a. CHARACTERISTICS to select reserved unit 
V TISPACKET,R4 toy TH 


T. ERRNO 
ERRNO, TI9SSR .PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF rus 9 


REPEAT _ au mith) PATTERNS IN TSTBLK TABLE 
TBLK ,R3 Get a4 1s gt ADDRESS 
TA A IS BYTE 
: SETUP CURRENT rere POINTER 


PTR 
Do a WRITE NPR to set loopback and sa 
MOV #NP RO LOOPBACK CU OUT 


CSERDF 
817 

TI9SSR 
PKTSSR 


CSCLP1 


CSERDF 
818 

T192SSR 
PKTSSR 


CSCLP1 


S_OF COMMAND PACKET 
WRITE CHARACTERISTI ICS COMMAND 
3 @aDF ORCE oy IF cat 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF ISSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
819 

TI9SSR 
PKTSSR 


CSCLP1 


3GET SY STEM COMMAND PACKET 
SET THE PACKET ADDRESS TO EXECUTE 


K 2 
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TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST SEQ 0229 
4339 peesee 064737 016336 JSR PC, CHKTSSR sWAIT FOR + TO SET 
4340 054274 FORCERROR 102$ s@aDFORCE — IF ns 
4341 054310 103407 BCS 105$ zBR IF CARRY SET (GOOD RETURN) 
4342 054312 010001 MOV RO,R’ 3SAVE CONTENTS OF TSSR 
4343 054314 NEXT. ERRNO 
4344 054314 102$: ERRDF ERRNO,1194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
054314 104455 TRAP CSERDF 
Oec3i6 001464 -WORD 6820 
054320 060371 «WORD T194SSR 
054322 012046 «WORD PKTSSR 
4345 054324 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4346 054330 105$: CKLOOP LOOP ON ERROR, IF FLAG et 
054330 104406 TRA CS$CLP1 
4347 : Do a WRITE FIFO with byte count & ual to 1 and Tape Gicenntas OUT 
4348 054332 012700 000001 MOV #1,R0 sWRITE 1 BYTE 
4349 054336 012701 002312 MOV #DATA,R1 *FIFO WRITE DATA ADDRESS 
4350 054342 004737 062066 JSR PC,T19WF IF :SETUP T19P) PKe FOR WRITE FIFO 
4351 054346 012704 062460 MOV aTI9PK2, R4 3:GET WRITE SUBSYSTEM COMMAND PACKET 
4352 054352 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
4353 054356 004737 016336 JSR PC; CHKTSSR SWAIT FOR SSR TO SET 
4354 054362 FORCERROR 107$ s@@DFORCE ERROR IF FORCER=1 
4355 054376 103407 BCS 110$ sBR IF CARRY SET (GOOD RETURN) 
4356 054400 010001 MOV RO,R1 * SAVE CONTENTS OF TSSR 
4357 054402 NEXT. ERRNO 
4358 054402 107$: ERRDF ERRNO, T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054402 104455 TRAP CSERDF 
054404 001465 eWORD 821 
054406 060434 eWORD T195SSR 
054410 012046 -WORD PKTSSR 
4359 054412 005237 002222 ow FATFLG :SET FATAL ERROR FLAG 
4360 054416 110$: ;LOOP ON ERROR, IF FLAG SET 
054416 104406 TRAP CS$CLP1 
3 Do a READ FIFO with tape direction OUT load tape out tes latch 
4362 054420 012700 000001 MOV #1,R0 3SET READ BYTE COUNT 
4363 oeeets 004737 062046 JSR PC, TIORFIF :SETUP T19PK2 FOR READ FIF 
4364 054430 012704 062460 MOV ATISPK2,RG 7GET WRITE SUBSYSTEM COMMAND PACKET 
4365 054434 010465 000000 MOV RG. TSDB CRS) 3SET THE PACKET ADDRESS TO EXECUTE 
4366 054440 004737 016336 JSR PC,CHKTSSR sWAIT FOR SSR A, SET 
4367 054444 FORCERROR 122$ s@aDFORCE ERROR IF — 
4368 054460 103407 BCS 130$ sBR IF C CARRY SET (GOOD RETURN) 
4369 054462 010001 MOV RO,R1 zSAVE CONTENTS OF TSSR 
4370 054464 NEXT. ERRNO 
4371 054464 122$: ERRDF  ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054464 104455 TRAP CSERDF 
054466 001466 -WORD 8 
054470 060500 -WORD T196SSR 
054472 012046 -WORD PKTSSR 
4372 054474 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
4373 054500 130$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
054500 104406 TRAP CSCLP1 
4374 3 Do a WRITE NPR to set loopback and Bye d direction IN 
1376 Oot ene 005000 CLR RO OUT TO SET TAPE DIRECTION IN 
4376 054504 052700 000040 BIS #NP.LOOP,RO icf LOO 
4377 aT: 004737 062022 JSR PC TiOSNeR +: te TISPK2 FOR WRIT 
4378 054514 012704 062460 MOV #TIOPK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 
4379 054520 010465 000000 MOV R4,TSDB(RS) [SET THE PACKET ADDRESS TO EXECUTE 
4380 054524 004737 ET 


016336 JSR PC, CHKTSSR WAIT FOR SSR TO S 
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4382 054544 103407 
4383 054546 010001 


4396 054632 103407 
4397 054634 010001 


104455 
054640 001470 
060434 
012046 
005237 
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002222 


000001 
002312 


016336 


002222 


00 
016336 


000: 003 
062332 


000002 


142$: 


162$: 


182$: 


190$: 


TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 


FORCERROR 142$ 
BCS 150 

MOV RO,R1 

NEXT. ERRNO 

ERRDF 

INC FATFLG 
CKLOOP 

Do a WRITE FIFO with byte count 
MOV #1,R0 

MOV ATA,R1 

JSR PC, TI9WFIF 
MOV TI9PK2, 

MOV R4, TSDB(RS) 
JSR PC.CHKTSSR 
FORCERROR 

BCS 170$ 

MOV RO,R1 
NEXT.ERRNO 

ERRDF ERRNO,T195SSR,PKTSSR 
INC FATFLG 
CKLOOP 


ERRNO, T194SSR,PKTSSR 


SEQ 0230 
: @aDF ORCE cone ks 5 FORCER=1 
BR IF CARRY SET “secs ETURN) 
SAVE CONTENTS OF TSSR 


DEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 

«WORD 

«WORD T194SSR 
«WORD PKTSSR 


sSET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG ee 
CSCLP1 


TRA 
oo to 1 and Tape denssten IN 
sun TE 1 BYTE 
FIFO WRITE DATA ADDRESS 
SETUP TI9PK2 FOR WRITE FIFO 
3GET WRITE SUBSYSTEM COMMAND PACKET 
:SET = PACKET ADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 


' s@aDFORCE ERROR IF FORCER=1 
zBR IF CARRY SET (GOOD RETURN) 
ZSAVE CONTENTS OF TSSR 


DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
«WORD 824 
WORD T195SSR 
«WORD PKTSSR 
zSET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG = 
TRAP CSCLP1 


Do a READ FIFO with tape direction IN to read data 
ia Data Hr from FIFO NOT= to Data sent Then Print Error 


Vv 
NEXT .ER 
ERRDF 


PC: TIORFIF 
ATISPK2,R4 
R4, TSDB(RS) 
PC. CHKTSSR 


RRNO- 
ERRNO, T196SSR,PKTSSR 


FATFLG 


PC, TI9SETEXP 
#TISEXSTA,R1 
#TI9BFSTA, *R2 
OeROS «SCRTD 


#T19BFR,RI 


sSET oT BYTE COUNT 

;SETUP T19PK2 FOR READ F 

2GET UURITE SUBSYSTEM COMMAND P ACKET 
:SET | “en 10 SET TO EXECUTE 


T FOR S 
ORCE ERROR IF FORCER=1 
2BR IF cinay eer (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
eWORD 825 
WORD T196SSR 
WORD PKTSSR 


7SET FATAL ERROR FLAG ~ 
[LOOP ON ERROR, IF FLAG SET 


CSCLP1 
sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
GET EXPECTED “ STATUS 
GET RECV READ STATUS 
SET EXPD WORD #8 = DAT 
2SET EXPD WORD #9 = RECY (NOT TESTING) 
HIGH RECV ADDRESS FOR CKMSG2 

LOW RECV ADDRESS FOR CKMS 


Ea tae a 


— 





4423 054772 


4442 055072 
4443 055072 
055072 
055074 
055076 
055100 
4444 055102 
4445 055106 


055206 
4463 055210 

055210 
4464 
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012702 
012703 
004737 
103404 
104456 
001472 
061440 
013742 
104406 


004737 


SRRAS 
N 


ooo 
Sb et 
RN 
So 
Why 


103404 


012590 
104406 


M 
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060042 
000022 
011500 


061760 


016336 


002222 


062220 
060062 
062352 


000020 
000040 
000200 


062332 


0 
011500 


LOOPBACK READ/WRITE SIGNALS T 


202$: 


2108: 


212$: 


2208: 


2328: 


240$: 


MOV #T19EXP,R2 

MOV #18. ,R3 

JSR PC ,CKMSG2 

FORCERROR 202$,NOTSSR 
BCS oe 


NEXT. ERRNO 
ERRHRD ERRNO,T199CMP,MSGSUB 


CKLOOP 


Do a Write Subsystem READ STATUS 

Then Print Error 
Then Print Error 
Then Print oer 


If Input Ready NOT=1 
If Output Ready NOT=0 
If Data 5 wi ge NOT=0 


RD 
MOV Wi9PKS RG 
MOV R4, TSDB(RS) 


JSR PC, CHKTSSR 
FORCERROR 2 
BCS 2208 

MOV RO,R1 

NEXT 0 


- ERRN 
ERRDF ERRNO, T193SSR,PKTSSR 


INC FATFLG 
CKLOOP 


JSR PC, TI9SETEXP 
MOV ATISEXSTA,R1 
MOV #T19BFSTA,R2 
MOV (R2)+, (R13+ 
MOV (R2), (R1) 

BIS #S2. INRDY, (R1) 
BIC aS -OUTRDY (R1) 
BIC oe (Ri) 


MOV T196FR,R1 
MOV aTISEXP. R2 
MOV g20. RS 
JSR - 
FORCERROR 

BCs 

NEXT. ERRNO 

ERRHRD ERRNO,T196CMP,MSGSTAT 


$G2 
232$,NOTSSR 


CKLOOP 


ZEXPD ADDRESS 

[NUMBER OF BYTES TO COMPARE 
SEXPD EQUAL RECV? 

‘BR IF YES 


REPORT ERROR 


:LOOP ON ERROR, IF FLAG SET 


PACKET FOR READ bed 
STE 


sWAIT 
=. ORCE 

BR IF CARRY SET (GOOD 

3 SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


- WORD 
- WORD 


- WORD 
3SET FATAL ERROR FLAG 
:LOOP ON ERROR, IF FLAG +H 


SEQ 0231 


CSERHRD 
82 


6 
TI99CMP 
MSGSUB 


CSCLP1 


; YSTEM COMMAND PACKET 

SET 7 in asa tear TO EXECUTE 

ERROR _IF eam 
RETURN) 


CSERDF 
827 
hac oe 
PKTS 


RAP CSCLP1 
T WORDS 0-7 get (NOT TESTING) 


reer EXPECTED —_ siA 
3GET ae READ S ATS 
SET EXPD * WORD Ht = RECV TEMP 


DRESS FOR CKMSG2 


SORES 
NUMBER OF BYTES | TO COMPARE 
EXPD EQUAL RECV? 


:aad 
BR IF YES 
REPORT ERROR 


:LOOP ON ERROR, IF FLAG SET 


CSERHRD 
8 


T196CMP 
MSGSTAT 


CSCLP1 


“+ 


N 
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4465 
4a 


4473 

4474 055240 
055240 
055240 

4475 

4476 055242 

4479 055254 

4480 

4481 


013703 


104403 


005737 
001402 
004737 





002316 
003062 


054226 


002222 
017202 


255$: 


260$: 


FORCEXIT 


MOV 
CMP 


BHIS 
MP 


255 


TSTPTR,R3 
R3, #TBLEND 
255$ 
100$ 


FATFLG 
260$ 
PC,CKDROP 


2 


2aad 
RESTORE CURRENT TSTBLK POINTER 
;END OF TSTBLK? 


: F YES 
:D0 ANOTHER TSTBLK PATTERN 


SAITIIIT1T117 END SUBTEST /////////7/ 
L10070: 


sANY FATAL 
sBRANCH IF 
TRY TO OR 


ERRORS ? 
NOT 
OP THE UNIT 


” TRAP 


CSESUB 


SEQ 0232 





4517 

4518 055254 
055254 
055254 

4519 

4520 055256 

4521 055256 

4522 055262 

4523 055264 

4524 055266 
055266 
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005037 
012704 
004737 
1 
0 
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015774 


002222 
062310 
010662 


~-SBTTL TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 


p++ 
: TEST 8: SUBTEST 3: 
: SUBTEST DESCRIPTION: 


vree 
bd 
ee 


This subtest verifies the Write Strobe loopback path 
can strobe data from the FIFO to the Data lines. 

The signal IRESV3 drives IWSTR (write strobe) to write 
data from the FIFO to the tape data out latch. 


TEST STEPS: 


say 1 ALL TEST PATTERNS IN TSTBLK TABLE 


Write to TSSR register to soft initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

If Extended Features Hardware Switch Clear then: 

Do Write poeretes Write Miscellaneous to Set Extended Features. 


Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 
Do a WRITE NPR to set loopback and Sope direction OUT 

Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 

Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 

Do a WRITE FORMAT to set IRESV3==>IWSTR = 0 to load write data latch 
Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 

se a WRITE NPR to set loopback and tape direction IN 

oa 


WRITE FIFO with byte count equet to 1 and Tape direction IN 
to strobe loopback data into FIFO. 

Do a READ FIFO with tape direction IN to read data 

If Data read from FIFO NOT= to Data sent Then Print Error 


ios: 


12$: 


BGNSUB SAIIITTTTTT1T BEGIN SUBTEST ////////1/ 


"TRAP ——sCSBSUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOFINIT sWRITE TO TSSR TO SOFT INITIALIZE 

BCS 10$ :BR IF SOFT INIT OKAY 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
TRAP CSERDF 
eWORD 828 
eWORD SFIERR 
eWORD SFIMSG 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

CLR FATFLG ;CLEAR FATAL ERROR FLAG 

MOV #TISPACKET,R4 3GET THE ADDRESS OF C ET 

JSR PC ,WRTICHR 3 ITE CHARACTERISTICS COMMAND 

FORCERROR 12$ s@aDFORCE ERROR IF FORCER=1 

BCS 15$ 3sBR IF CARRY SET (G ETUR 

MOV RO,R1 2SAVE CONTENTS OF TSSR 


NEXT. ERRNO 
ERRDF ERRNO,TI9SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 


SEQ 0233 





3 
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TEST 8: SUBTEST 35: LOOPBACK WRITE STROBE TEST SEQ 0234 
055332 164455 TRAP CSERDF 
055334 001475 -WORD 829 
055336 060223 «WORD T1I9SSR 
055340 012046 ~WORD PKTSSR 
4534 055342 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
4535 055346 15$: CKLOOP ‘LOOP ON ERROR, IF FLAG wer 
055346 104406 TRAP C$CLP1 
4536 3 If Extended Features Hardware Switch Clear then: 
$ Do Write Subsystem Write Miscel Laneous to Set careoeee Features. 
4538 055350 012701 062332 MOV #T19BFR,R1 sMESSAGE BUFFER ADD 
4539 055354 032761 000200 000012 BIT #X2. EXTF, XST2(R1) EXTENDED FEATURES SUITCH SET? 
4540 055362 001026 BNE R IF is 
4541 055364 004737 062162 JSR PC presen? SETUP P ACKET FOR WRITE MISC INVERT 
4542 055370 012704 062460 MOV #TISPK2,RG [GET WRITE SUBSYSTEM COMMAND PACKET 
4543 055374 010465 000000 MOV R4, TSDB(RS) SET = PACKET ADDRESS TO EXECUTE 
4544 055400 004737 016336 JSR PC, CHKTSSR ‘WAIT FOR SSR TO SET 
4545 055404 FORCERROR 22$ heap ERROR IF — 
4546 055420 103407 BCS 30$ . :BR IF CARRY SET (GOOD RETURN) 
4547 055422 010001 MOV a. R1 sSAVE CONTENTS OF TSSR 
4548 055424 NEXT.ERRNO 
4549 055424 22$: ERRDF ERRNO, 1T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055424 104455 TRAP CSERDF 
055426 001476 -WORD 830 
055430 060260 eWORD 1T192SSR 
055432 012046 -WORD PKTSSR 
4550 055434 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4551 055440 30$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
055440 104406 TRAP CSCLP1 
4552 3 Do WRITE CHARACTERISTICS to select reserved unit 7 
4553 055442 012704 062310 POV #TISPACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 
4554 055446 004737 010662 JSR PC,WRTCHR 3D0 WRITE CHARACTERISTICS COMMAND 
4555 055452 FORCERROR 42$ geeores CE ERROR IF cenceans 
4556 055466 103407 BCS 50$ R IF CARRY SET (GOOv RETURN) 
4557 055470 010001 MOV RO,R1 eave CONTENTS OF TSSR 
4558 055472 NEXT. ERRNO 
4559 055472 42$: ERRDF ERRNO,TI9SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055472 104455 TRAP CSERDF 
055474 001477 -WORD 831 
055476 060223 eWORD TI19SSR 
055500 012046 eWORD PKTSSR 
4560 055502 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4561 055506 50$: CKLOOP sLOOP ON ERROR,: IF FLAG ser 
456 055506 104406 TRAP CSCLP1 
1368 ; REPEAT FOR a TEST PATTERNS IN TSTBLK TABLE 
4564 055510 012703 002752 MOV #TSTBLK ,R3 GET FIRST gt ADDRESS 
4565 055514 012337 002312 100$: MOV (R3)+,DATA [GET A TEST PATTERN 
4566 055520 042737 177400 002312 BIC #°C<377>, DATA DATA IS SyTes 
4567 055526 010337 002316 MOV R3,TSTPTR 3 SETUP agnent Tevet s POINTER 
68 3 Do a WRITE NPR to set loopback and orene.g' ction 
4569 055532 012700 000100 MOV #NP OUT ,RO APE DIRECTION OUT 
4570 055536 052700 000040 BIS #NP.LOOP,RO ier LOOPBACK 
571 055542 004737 062022 JSR PC TTOSNPR sSETUP TI9PK2 FOR WRITE NPR 
572 055546 012704 062460 MOV aTiop 9PK2 .R4 [GET WRITE SUBSYSTEM COMMAND PACKET 
4573 055552 610465 000000 MOV R4, TSDB(RS) ‘SET THE wast ADDRESS TO EXECUTE 
4574 055556 004737 016336 JSR PC, CHKTSSR :WAIT FOR SSR TO SET 
4575 055562 FORCERROR 102$ s@a@DFORCE ERROR IF FORCER=1 





— 








rede | o33278 


0556 
4580 055612 
4581 055616 

055616 


458. 
4583 055620 
4584 


4592 055664 
055664 
055666 
055670 
055672 

4593 055674 

4 055700 


6 
4596 055702 


055760 
4607 055762 
4608 055766 

038766 


4609 
4610 055770 


4617 056030 


SUBTEST 
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103407 
010001 


104455 
00 


103407 
010001 


104455 
001501 
060612 
012046 
005237 
104406 


012700 
012701 
004737 


103407 
010001 
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: LOOPBACK WRITE STROBE TEST 


002222 


000002 


016336 


002222 


016336 


002222 


102$: 


112$: 


132$: 





BCS 105$ 
MOV 


3BR IF CARRY SET (GOOD RETURN) 
RO,R1 


:SAVE CONTENTS OF TSSR 


NEXT..ERRNO 

ERRDF ERRNO,T1I94SSR,PKTSSR § ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 8 
;WORD T194SSR 
-WORD PKTSSR 

INC FATFLG 3SET FATAL ERROR FLAG 

CKLOOP :LOOP ON ERROR, IF FLAG SET 
TRAP  C$CLP1 

Do a WRITE FORMAT to set IRESV3= arate s 

MOV F.13RES,RO RESVae=>1USTR=1 

JSR PC, TIOWEMT :$ ‘artop TOPK2 FOR WRITE FORMAT 

MOV ATIOPK2,RG :GET VURITE SUBSYSTEM COMMAND PACKET 

R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
PC, CHKTSSR ‘WAIT FOR SSR TO SET 

FORCERROR 112$ saanr ORCE ERROR IF FORCER=1 

BCS 120$ R IF CARRY SET (GOOD RETURN) 

MOV - RO,R1 eave CONTENTS OF TSSR 

ERRDF ERRNO,TI98SSR,PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSERDF 
«WORD 8 
-WORD  T198SSR 
<WORD PKTSSR 


INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP 


;LOOP ON ERROR, IF FLAG a const 
Do a WRITE FIFO with byte count eguet te to 1 and Tape direction OUT 
MOV R 1 BYTE 


FIFO O wRITE DATA ADDRESS. 
PC TiSur IE SSETUP TI9PK2 FOR WRIiE F 

GET URITE SUBSYSTEM COMUAND. CKET 
ise! THE "se roNeere TO EXECUTE 


JSR PC;CHKTSSR WAIT ign SSR 

R 132$ ORCE ERROR IF FORCER=1 
BCS 40$ sBR IF C eer (GOOD RETURN) 
2 SAVE CONTENTS OF TSSR 


NEXT. ERRNO Ses 

ERRDF ERRNO,TIOSSSR,PRTISSR = DEVICE FATAL SSR FAILED TO SET 
RAP CSERDF 
-WORD 834 
“WORD T19SSSR 
-WORD PKTSSR 

INC FATFLG SET FATAL ERROR FLAG 

CKLOOP SLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

Do a WRITE FORMAT to set IRESV3==>IWSTR = 

CLR ~—s RO SET IRESV3==>1WSTR=0 

JSR PC, TISWFMT SETUP TOPK2 FOR WRITE FORMAT 


MOV ATIOPK2,RG SGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) SET THE PACKET ADDRESS TO EXECUTE 
JSR PC; CHKTSSR SWAIT FOR SSR TO SET 

FORCERROR 152$ OF STOR ORCE ERROR IF FORCER=1 
BCS 160$ 7BR IF CARRY SET (GOOD RETURN) 

MO RO,R1 ZSAVE CONTENTS OF TSSR 


SEQ 0235 
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4618 056032 
4619 B2e0ss 
05603 
056034 
056036 
056040 
4620 056042 
4621 056046 
056046 


4622 
4623 056050 


056122 
4633 056124 
4634 056130 
4635 
4636 
4637 056132 
4638 134 


056206 
4648 056210 
4649 056214 


4650 
4651 056216 


4657 056246 
4658 056262 
4659 056264 


E 
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002222 
000002 
062142 


016336 


002222 


000040 
062022 
062460 
000000 
016336 


002222 





3 
NEXT. ERRNO 
ERRDF ERRNO,T198SSR,PKTSSR 


INC FATFLG 
CKLOOP 


WWF .13RES,RO 
PC, T19WEMT 
MOV #TIOPK2,RG 


MOV R4, TSDB(RS) 
JSR PC,CHKTSSR 
RROR 17, 


FORC 

BCS 

MOV RO,R1 
NEXT. ERRNO 


ERRDF ERRNO,T198SSR,PKTSSR 


INC FATFLG 
CKLOOP : 


DEVICE FATAL SSR FAILED TO SET 
TRAP 


sDEVICE FATAL SSR FAILED TO SET 
RAP 


CSERDF 
«WORD 835 
«WORD bs 5 
«WORD PKTS 
3SET FATAL ERROR FLAG 
:LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


pe a WRITE FORMAT to set csmcrcenmass =1 


IRESV3==>IWSTR=1 
SETUP Henge uner WRITE FOR 
3GET UURITE SYSTEM COMMAND. P ACKET 
3SET THE ch ie TO EXECUTE 


sWAIT FOR 
s@aDFORCE ERROR IF — 

BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 


CSERDF 
«WORD 836 
«WORD T198SSR 
«WORD PKTSSR 
3SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Do a WRITE NPR to set loopback and tape direction IN 
CLR R .OUT 


0 7CL TO SET TAPE DIRECTION IN 

#NP.LOOP, [SET LOOPBACK 
JSR PC, TI9SNPR ZSETUP T19PK2 FOR WRITE NPR 
MOV #TIOPK2 RS 3GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR :WAIT FOR SSR TO SET 
FORCERROR 82$ : 9aDF ORCE ERROR IF FORCER=1 
BCS 3BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 SAVE CONTENTS OF TSSR 


NEXT. ERRNO 
ERRDF ERRNO,T194SSR,PKTSSR 


INC FATFLG 
CKLOOP 


DEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 
WORD 837 
WORD T194SSR 
«WORD PKTSSR 


3SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


RAP 
Do a WRITE FIFO with byte count oquet to 1 and Tape direction IN 
MOV # 1 BYTE 


sFIFO a bs DATA are 
3SETUP TI9PK2 FOR WRITE F 


CSCLP1 


MOV #TIOPK2 RG :GET WRITE $ 


JSR PC,CHKTSSR 
FOR OR 202 
BCS 2108 
MOV RO,R1 





hier: = 


UBSYSTEM COMMAND. P ACKET 
ol By. PACKET tour TO EXECUTE 


ORCE ERROR IF A aaa 
£5; (GOOD RETURN) 


BR IF 
SAVE CONTENTS OF TSSR 
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TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST SEQ 0237 
4660 056266 NEXT. ERRNO 
4661 oeesce 202$: ERRDF ERRNO, T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056266 104455 TRAP CSERDF 
056270 001506 -WORD 838 
056272 060434 «WORD T195SSR 
74 012046 -WORD PKTSSR 
4662 056276 005237 002222 “4 FATFLG 3SET FATAL ERROR FLAG 
4663 056302 2108: oop ;LOOP ON ERROR, IF FLAG SET 
056302 104406 TRAP CSCLP1 
3 Do a READ FIFO with tape direction IN to read data 
4665 056304 012700 000001 MOV: #1,R0 3SET READ BYTE COUNT 
4666 056310 004737 062046 JSR PC, TIORFIF sSETUP T19PK2 FOR READ F 
4667 056314 012704 062460 MOV aTI9PK2, R4 [GET WRITE SUBSYSTEM COMMAND P CKET 
4668 056320 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
4669 056324 004737 016336 JSR PC. CHKTSSR :WAIT FOR = TO SET 
4670 056330 FORCERROR 222$ s@@DFORCE ERROR IF FORCER=1 
4671 056344 103407 BCS 230$ 3BR IF CARRY SET (GOOD RETURN) 
4672 056346 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4673 056350 NEXT. ERRNO 
4674 056350 222$: ERRDF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056350 104455 TRAP CSERDF 
056352 001507 «WORD 839 
056354 060500 -WORD T196SSR 
056356 012046 -WORD PKTSSR 
4675 056360 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
4676 056364 230$: CKLOOP ;LOOP ON ERROR, IF FLAG re 
056364 104406 CSCLP1 
4677 ; If Data 8 a from ve NOT= to Data sent Then Print Erro 
4678 056366 004737 062220 JSR C, TI9SETEXP sSET WORDS 0-7 EX POSRECY (NOT TESTING) 
4679 056372 012701 060062 MOV aT IOEKSTA.RI 7GET EXPECTED READ STATUS 
056376 012702 062352 MOV #TI9BFSTA,R2 3GET RECV READ STATUS 
4681 056402 013711 002312 MOV DATA SET pe WORD #8 = DATA 
056406 016261 000002 000002 MOV 2(R2), 2(R1) :SET EXPD WORD #9 = RECV (NOT TESTING) 
4683 056414 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 
056416 012701 062332 MOV #T19BFR,R1 LOW RECV ADDRESS FOR CKMSG2 
4685 056422 012702 Oe 83S MOV ATI9EXP.R2 sEXPD ADD 
paeees 012703 00002 MOV #18. ,R3 SNUMBER OF gt TO COMPARE 
4687 056432 004737 011500 JSR PC,CKMSG2 sEXPD EQUAL RECV 
4688 056436 FORCERROR 242$,NOTSSR aad 
4689 056446 103404 Bcs Rt :BR IF YES 
4690 056450 NEXT. ERRNO 
4691 056450 2428: ERRHRD ERRNO, T19WSTR,MSGSUB sREPORT ERROR 
056450 104456 TRAP CSERHRD 
056452 001510 -WORD 84 
056454 061523 -WORD TI9WSTR 
056456 013742 -WORD MSGSUB 
4692 056460 250$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
056460 104406 TRAP CSCLP1 
4693 
4694 
4695 05646 FORCEXIT 4558 aad 
4696 056472 013703 00231 MOV TSTPTR,R :RESTORE Gasent TSTBLK POINTER 
4697 056476 020327 00306 CMP R3, 4TBLEND END 0 TSTBLK 
4698 056502 103002 BHIS 255$ 7BR IF YES 
4699 056504 000137 055514 JMP 100$ 200 ANOTHER TSTBLK PATTERN 


4700 056510 255$: 
4701 





3 
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TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST SEQ 0238 
4702 056510 ENDSUB SAIITITIATTTT END SUBTEST ////////1/ 
056510 L10071: 
4703 056510 104403 TRAP C$ESUB 
4704 056512 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
4705 056516 001402 BEQ 260$ BRANCH IF NOT 
4706 056520 004737 017202 JSR PC, CKDROP :TRY TO DROP THE UNIT 


4707 056524 260$: 





| 3 
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TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 

are -SBTTL TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 

4711 ++ 

rat 3; TEST 8: SUBTEST 4: 

ray 3; SUBTEST DESCRIPTION: 

4716 : This subtest verifies the Read Strobe loopback path 

4717 3 can strobe the data from the Data lines to the FIFO. 

4718 : The ——— IRESV4 drives IRSTR (read strobe) to write 

ry a : from the data Lines to the FIFO. 

4721 : TEST STEPS: 

4722 3 

4723 3 

4724 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

4725 3 BEGIN 

4726 : Write to TSSR register to soft initialize the controller 

4727 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 

4728 ; If extended Features Hardware Switch Clear then: 

4729 3 Do Write Subs syetee Write Miscellaneous to Set Extended Features. 

4730 3 Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 

4731 : Do a Write Subsystem WRITE NPR to set tape direction out and Loopback 

4732 3 Do a WRITE NPR to set loopback and seve ¢ Street ten OUT 

4733 3 Do a WRITE FORMAT to set TRESVG= =>IRSTR 

4734 : Do a WRITE FIFO with byte count equal to 1 = Tape direction OUT 

4735 : Do a READ FIFO with tape direction OUT to load tape out write latch 

4736 3 Do a WRITE NPR to set loopback and ta direction IN 

4737 : Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 to write loop data to FIFO 

4738 ; Do a WRITE FORMAT to set IRESVé==>IRSTR =1 

4739 : (to strobe seageatt data into FIFO.) 

4740 $ Do a READ FIFO with tape direction IN to read data 

4741 3 If Data read from FIFO NOT= to Data sent Then Print Error 

in hey 

4744 0363¢% BGNSUB S//III11/111/ BEGIN SUBTEST ////////74/ 
056524 104402 TRAP C$BSUB 

4745 ° Write to TSSR register to soft initialize the controller 


ve 
wn 


4746 056526 : 
4747 056526 004737 015774 JSR + Tatil 


sWRITE TO TSSR gh Hy INITIALIZE 


4748 056532 103405 Bcs ‘BR IF SOFT INIT 

4749 056534 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4750 056536 ERRDF ERRNO, SFIERR, SF IMSG :DEVICE FATAL DURING INIT 
056536 104455 TRAP CSERDF 
056540 001510 -WORD 840 
056542 003652 eWORD SFIERR 
056544 012034 eWORD SFIMSG 

4751 . Do cite” DAAC TERISTECS to check for Extended Features Switch 

4752 056546 005037 002222 10$: CLR TFLG ZCLEAR FATAL ERROR FLAG 

4753 056552 012704 062310 MOV OT ISPACKET, R4 GET at ADDRESS OF COMMAND PACKET 

4754 056556 004737 010662 JSR PC,WRTICHR 3D0 WRITE CHARACTERISTICS COMMAND 

4755 056562 FORCERROR 12$ joseres E ERROR IF FORCER=1 

4756 056576 103407 BCS 15$ BR IF CARRY SET (GOOD RETURN) 

4757 056600 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

4758 056602 NEXT. ERRNO 

4759 056602 12$: ERRDF  ERRNO,TI9SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 





SEQ 0239 


aes Baer 


—_—___-——__-- —- —_—__ -—_————_----------- -- - - o - 
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TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST SEQ 0240 
| 056602 104455 TRAP —- CSERDF 
056604 001511 «WORD 841 
060223 «WORD T1I9SSR 
056610 012046 -WORD PKTSSR 
4760 056612 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4761 056616 15$: CKLOOP ‘LOOP ON ERROR, IF FLAG ser 
056616 104406 TRAP CS$CLP1 
476 : If Extended Features Hardware Switch Clear then: 
476 3 Do Write Subsystem Write Miscellaneous to Set aueonese Features. 
4764 056620 012701 062332 MOV #T19BFR,R1 sMESSAGE BUFFER ADDR 
4765 056624 032761 000200 000012 BIT #X2.EXTF ,XST2(R1) EXTENDED FEATURES SWITCH SET? 
47 566 001026 BNE 30$ BR IF YES 
4767 056634 004737 06 Ios JSR PC, TISSEXT sSETUP PACKET FOR WRITE MISC INVERT 
4768 056640 012704 062460 MOV #TIOPK2,RG [GET WRITE SUBSYSTEM COMMAND PACKET 
4769 056644 010465 000000 MOV R4, TSDB(RS) ise THE rein t ar TO EXECUTE 
4770 056650 004737 016336 JSR PC, CHKTSSR WAIT FOR S SET 
4771 056654 FORCERROR 22$ raa0r ORCE ERROR IF FORCER=1 
4772 056670 103407 BCS 30$ 7BR IF CARRY SET (GOOD RETURN) 
4773 056672 010001 MOV RO,R1 7 SAVE CONTENTS OF TSSR 
4774 056674 NEXT. ERRNO 
4775 056674 22$: ERRDF ERRNO, T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056674 104455 TRAP CSERDF 
056676 001512 «WORD 842 
56700 060260 «WORD 1192SSR 
056702 012046 -WORD PKTSSR 
4776 056704 005237 002222 INC FATFLG +13 FATAL ERROR FLAG 
4777 056710 30$: CKLOOP OOP ON ERROR, IF FLAG SET 
056710 104406 TRAP CS$CLP1 
4778 3 Do WRITE “orang Lt 3 ha to select reserved unit 7 
4779 056712 012704 062310 MOV #TISPACKET,R4 ay THE ADDRESS OF COMMAND PACKET 
4780 056716 004737 010662 JSR PC, WRTCHR O WRITE CHARACTERISTICS COMMAND 
4781 056722 FORCERROR 42$ bang ORCE ERROR IF —— 
4782 056736 103407 BCS 50$ 7BR IF CARRY SET (GOOv RETUR 
4783 056740 010001 MOV B.S SAVE CONTENTS OF TSSR 
4784 056742 NEXT.ERR 
4785 056742 42$: ERRDF ERRNO, TIOSSR. PKTSSR sDEVICE FATAL SSR FAILED TO SET 
056742 104455 TRAP CSERDF 
056744 001513 WORD 3 
056746 060223 eWORD T19SSR 
056750 012046 -WORD PKTSSR 
4786 056752 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4787 056756 50$: CKLOOP *LOOP ON ERROR, IF FLAG at 
‘ 056756 104406 CS$CLP1 
47 3 REPEAT FOR aut TEST PATTERNS IN TSTBLK TABLE 
4 056760 012703 002752 MOV #TSTBLK,R3 sGET FIRST gidinr | ESR ES 
056764 012337 S50 100$: MOV (R3)+,DATA [GET A TEST PATTERN 
4792 056770 042737 177400 002312 BIC #°C<377>, DATA 7DATA IS BY te. 
056776 010337 002316 MOV R3,TSTPTR sSETUP CURRENT TSTBLK POINTER 
4794 3 Do a WRITE NPR to set loopback and t direction OuT 
4795 057002 012700 000100 MOV #NP OUTRO SET TAPE DIRECTION OUT 
4796 0571 052700 000040 BIS #NP.LOOP,RO SET LooreAce 
4797 057012 004737 062022 JSR PC. TISSNPR sSETUP T1I9PK2 FOR WRITE NPR 
4798 057016 012704 062460 MOV #TIOPK2, RG 3GET WRITE SUBSYSTEM COMMAND PACKET 
4799 057022 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
4800 057026 004737 016336 JSR PC; CHKTSSR WAIT FOR SSR TO 
4801 057032 FORCERROR 102$ s@aDFORCE ERROR IF FORCER=1 


ee 


SS a 
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TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST SEQ 0241 
4802 057046 103407 BCS 105$ sBR IF CARRY SET (GOOD RETURN) 
4803 057050 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 
4804 057052 NEXT ..ERRNO 
4805 05705¢ 102$: ERRDF ERRNO,TI94SSR,PKTSSR § ;DEVICE FATAL SSR FAILED TO SET 
057052 104455 TRAP  CSERDF 
057054 001514 «WORD 844 
057056 060371 ;WORD T194SSR 
57060 012046 .WORD PKTSSR 
4806 057062 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
4807 057066 105$:  CKLOOP ZLOOP ON ERROR, IF FLAG SET 
057066 104406 TRAP  C$CLP1 
480. 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
4809 057070 012700 000001 MOV WF .I14RES,RO : IRESV4==>IRSTR=1 
4810 057074 004737 062142 JSR PC, TISWFMT SSETUP TOPK2 FOR WRIT 
4811 057100 012704 062460 MOV #TIOPK2,RG [GET WRITE SUBSYSTEM COMMAND PACKET 
4812 057104 010465 0000 MOV R4, TSDB(RS) SET THE PACKET ADDRESS TO EXECUTE 
4813 057110 004737 O16s86 JSR PC. CHKTSSR :WAIT FOR SSR TO SET 
4814 057114 FORCERROR 112$ jaavF ORCE ERROR IF FORCER=1 
4815 057130 103407 BCS 120$ 7BR IF CARRY SET (GOOD RETURN) 
4816 057132 010001 MOV RO,R1 + SAVE CONTENTS OF TSSR 
4817 057134 NEXT. ERRNO 
4818 057134 112$: ERRDF ERRNO,TI98SSR,PKTSSR DEVICE FATAL SSR FAILED TO SET 
057134 104455 TRAP CSERDF 
057136 001515 . WORD 5 
057140 060612 “WORD T198SSR 
057142 012046 -WORD PKTSSR 
4819 057144 005237 902222 INC FATFLG 3SET FATAL ERROR FLAG 
4820 057150 120$:  CKLOOP [LOOP ON ERROR, IF FLAG SET 
057150 104406 TRAP _— CS$CLP1 
4821 : Do a WRITE FIFO with byte count oguet .°s to 1 and Tape direction OUT 
4822 057152 012700 000001 MOV #1,R0 1 BYTE 
4823 057156 012701 002312 MOV #DATA,R1 FIFO WRITE DATA ADDRESS 
4824 057162 004737 062066 JSR PC,T19WF IF :SETUP T19PK2 FOR WRIiE FIF 
4825 057166 012704 062460 MOV #TIOPK2 RG ZGET WRITE SUBSYSTEM COMMAND PACKET 
4826 057172 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
4827 057176 004737 016336 JSR PC. CHKTSSR SWAIT FOR SSR TO SET 
4828 057202 FORCERROR 132$ ojaaor ORCE ERROR IF FORCER=1 
4829 057216 103407 BCS 140$ BR IF Y SET (GOOD RETURN) 
4830 057220 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
4831 057222 NEXT.ERRNO 
4832 057222 132$: ERRDF ERRNO,TIOSSSR,PKTSSR § :DEVICE FATAL SSR FAILED TO SET 
057222 104455 TRAP CSERDF 
057224 001516 «WORD 846 
057226 060434 .WORD T19S5SSR 
057 012046 -WORD PKTSSR 
4833 057232 005237 002222 INC FATFLG gSET FATAL ERROR FLAG 
4834 057236 140$:  CKLOOP [LOOP ON ERROR, IF FLAG SET 
057 104406 TRAP — CS$CLP1 
5 2 Do a READ FIFO with tape direction OUT to load tape out write latch 
4836 057240 012700 000001 MOV #1,RO0 7SET READ BYTE COUNT 
4837 057244 004737 062046 JSR PC. TIORFIF :SETUP T TI9PK2 FOR READ FIF 
4838 057250 012704 062460 MOV #TISPK2 RG 7GET WRITE SUBSYSTEM COMMAND PACKET 
4839 057254 010465 000000 MOV R4, TSDB(RS) SET THE PACKET ADDRESS TO EXECUTE 
4840 057260 004737 016336 JSR PC. CHKTSSR SWAIT FOR SSR TO SET 
4841 057264 FORCERROR 1528 s@aDFORCE ERROR IF FORCER=1 
4842 057300 103407 BCS 160$ zBR IF CARRY SET GOOD RETURN) 
4843 057302 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 





a ee = 


a 
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4844 057304 
4845 057304 
057304 


057306 
057310 


057312 
4846 057314 
4847 057320 
057320 


4848 

4849 057322 
4850 057324 
4851 057330 
4852 057334 
4853 057340 
4854 057344 
4855 057350 
4856 057364 


4857 057366 
4858 057370 
4859 057370 

057370 
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TESTS 


10001 


K 
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002222 


016336 


002222 


000000 
016336 


002222 


000001 
062142 
062460 
016336 


LOOPBACK READ STROBE TEST 


152$: 


160$: 


182$: 


202$: 


2228: 


SEQ 0242 
NEXT..ERRNO 
ERRDF ERRNO,TI96SSR,PKTSSR §;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 847 
-WORD T196SSR 
PKTSSR 
INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CS$CLP1 
Do a WRITE NPR to set loopback and tape direction IN 
CLR RO :CLR NP.OUT TO SET TAPE DIRECTION IN 
BIS #NP.LOOP,RO ‘SET LOOPBACK 
JSR PC, TISSNPR : SETUP TI9PK2 FOR WRITE NPR 
MOV ATISPK2 RG :GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) ise THE PACKET oADRESS TO EXECUTE 
JSR PC. CHKTSSR WAIT FOR SSR 0 SET 
FORCERROR 182$ ;aa0F ORCE ERROR IF FORCER=1 
BCS 190$ zBR IF CARRY SET (GOOD RETURN) 
MOV ‘ RO,R1 SAVE CONTENTS OF TSSR 
ERRDF ERRNO,T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
.WORD 848 
.WORD T1194SSR 
“WORD PKTSSR 
INC FATFLG 7SET FATAL ERROR FLAG 
CKLOOP SLOOP ON ERROR, IF FLAG SET nee? 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 
CLR 0 ET IRESV4==>IRSTR=0 


tr R “3SET 
JSR PC, TISWFMT SETUP T9PK2 FOR WRITE Ant 


MOV ATISPK2,R4 :GET WRITE SUBSYSTEM COMMAND P 

MOV Re, TSDB(RS) =SET THE PACKET ADDRESS TO EXECUTE. 
JSR PC’ CHKTSSR “WAIT FOR SSRI TO SET 

FORCERROR 202$ ;aapF ORCE ERROR IF FORCER=1 
BCS 2108 zBR IF CARRY SET (GOOD RETURN) 

MOV ‘i + SAVE CONTENTS OF TSSR 


RNO- 
ERRDF ERRNO, T198SSR,PKTSSR DEVICE FATAL SSR voneemag* Saal 


CSERDF 
«WORD 849 
“WORD T198SSR 
“WORD PKTSSR 

INC FATFLG 7SET FATAL ERROR FLAG 

CKLOOP [LOOP ON ERROR, IF FLAG SET 
TRAP  CSCLP1 

Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 

MOV #UF .14RES,RO y IRESV4==>IRSTR=1 

JSR PC, TISWEMT SETUP T9Pke F FOR WRITE FORMAT 

MOV #TIOPK2,R4 [GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 

JSR PC. CHKTSSR WAIT FOR SSR TO SET 

FORCERROR 2228 s@aDFORCE ERROR IF FORCER=1 

BCS 2308 zBR IF CARRY SET (G00 RETURN) 


~ TERR M.S zSAVE CONTENTS OF TSSR 
ERRDF ERRNO,T198SSR.PKTSSR sDEVICE FATAL SSR FAILED TO SET 


mea 


057532 

05 
4886 057542 
4887 057546 

057546 


rt a 057550 


4915 goerté 
Os7716 
ps7 7e8 
057722 

4916 057724 
057724 


4918 
4919 057726 
49 7 


4924 057754 

4925 

4926 057754 
057754 
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LOOPBACK READ STROBE TEST 
104455 TRAP CSERDF 
00152 -WORD 850 
06061 -WORD T198SSR 
012046 «WORD PKTSSR 
005237 002222 a FATFLG sSET FATAL ERROR FLAG 
230$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
3 Do a READ FIFO with tape direction IN to read data 
012700 000 MOV RO 3SET READ BYTE COUNT 
004737 062046 JSR PC: TIORFIF sSETUP T19PK2 FOR READ FIFO 
012704 246 MOV aTi9 OPK2 RS GET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4, TSDB(RS) SET yes PACKET ADDRESS TO EXECUTE 
004737 016336 JSR PC,CHKTSSR : WAIT FOR SSR TO SET 
FORCERROR 282$ s@@DFORCE ERROR IF — 
103407 BCS 290$ 7BR IF CARRY SET (GOOD RETURN) 
10001 NeXT TER a zSAVE CONTENTS OF TSSR 
282$:  ERRDF ERRNO, 1T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
04455 TRAP CSERDF 
001523 -WORD 851 
060500 -WORD 1196SSR 
012046 -WORD PKTSSR 
005237 002222 C FATFLG 3SET FATAL ERROR FLAG 
290$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 —_ CSCLP1 
é If Data read from FIFO NOT= to Data sent Then Print Erro 
004737 062220 JSR PC, TISSETEXP SET WORDS 0-7 EXPDERECY (NOT TESTING) 
012701 060062 MOV ATISEXSTA,R1 :GET EXPECTED READ STATUS 
012702 062352 MOV #7198 ‘ sGET oase READ ATUS 
013711 002312 MOV DATA, ¢ SET EXPD WORD a8 = 
016261 2 000002 MOV 2(R25 .2(R1) SET EXPD WORD #9 = = recy (NOT TESTING) 
005 CLR sHIGH RECV Bani FOR CKMSG2 
012701 062332 MOV BP 19RFR. R1 SLOW y AM. DDRESS FOR CKMSG2 
012702 06004 MOV ATI9EXP, Re SEXPD DRESS 
012703 00002 MOV #18.,R3. cRUMBER OF BYTES | TO COMPARE 
737 011500 JSR PC, CKMSG2 3EXPD EQUAL RECV? 
FORCERROR 302$..NOTSSR 
103404 »t + aon a 7BR IF YES 
302$: ERRHRD ERRNO, TIORSTR,MSGSUB sREPORT ERROR 
104456 TRAP CSERHRD 
001524 eWORD 852 
061630 eWORD TIORSTR 
013742 -WORD MSGSUB 
310$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
FORCEXIT $5 3@ad 
013703 00231 MOV TSTPTR,R SRESTORE CURRENT TSTBLK POINTER 
020327 003 CMP R3,4TBLEND sEND OF TSTBLK? 
103002 BHIS 355$ [BR IF YES 
000137 056764 355$ MP 100$ 3D0 ANOTHER TSTBLK PATTERN 


ENDSUB 


SAAAITTTTTTTT END SUBTEST ////////4/ 
L10072: 


SEQ 0243 








057754 


64 

pet) 057770 
4933 057770 
057770 

y 057772 
4935 
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164403 
005737 002222 
001408 
004737 017202 
360$: 


104432 
002602 
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TST FATFLG 
360$ 
JSR PC, CKDROP 


EXIT TST 


TRAP 


sANY FATAL ERRORS ? 
BRANCH IF NOT 
TRY TO DROP THE UNIT 


SAIITITATTT EXIT TEST SAASAAAA1/ 
TRAP 


«WORD 


CSESUB 


CSEXIT 
L10066-. 


SEQ 0244 


: ] 





TEST 8: 








TSVS = HARDWARE TESTS 
SUBTEST 4 


4 
4950 057776 
tees 057776 


496 
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4993 060524 
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LOOPBACK READ STROBE TEST 


3¢ 
;LOCAL STORAGE FOR THIS TEST 
TISPREV: -WORD 0 sDRIVE SIGNAL 1-0 TRANSITION FLAG 
3 * LOOPBACK DRIVE SIGNAL TABLE 
3 4 HIS TABLE IS USED BY TI9CNVT TO SETUP 
: A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN. 
: WRITE CONTROL SIGNALS ARE OF FORM WC.XXX 
: WRITE FORMAT SIGNALS ARE OF FORM WF .XXXX 
T19BF CTL: sWRITE CONTROL arts SIGNALS 
wC.1GO 160 ==>] FPT DATA<0> 
WC.IFEN : IFEN==>I1FBY DATACT> 
WC. IRWU + IRWU==>IRWD DATA<2> 
WC. IREW : IREW==>IDBY DATA<3> 
WF. 1ERASE S256. s IFAD==>ILDOP DATA<4> 
WC.1I1TAD SITADI==>IONL DATA<5> 
we. + py SITADO==>IRDY DATA<6> 
WC.IFA + IERASE= =>ISPEED DATA<7> 
UF 1ED1T#256. sIEDIT==>IHER DATA<8&> 
WF. IWFM*256. s 1WFM==>1F MK DATA<9> 
WF. IREV*256. ; IREV==>ICER DATA<10> 
WF. IWRT*256. ZIWRT==>1 IDENT DATA<11> 
WF. IHISP*#256. ZIHISP==>IEOT DATA<12> 
-WORD 0 sIRESV2 (UNUSED) DATA<13> 
WORD 0 Zs IRESV1 (UNUSED) DATA<14> 
-WORD OQ sPARERR (UNTESTED) DATA<15> 
TI9MSK: sMASK OF UNTESTED BITS - READ STATUS BYTES 
s UNTESTED aire ARE SEi T0 1 
-BYTE *C<000> BY YTE 0 MA 
-BYTE *C€<340> *BYTE 1 MASK yar IRESV2, IRESV1) 
-BYTE *C€<017> ‘BYTE 2 (TIMER A, TIMER 8. UNDEF INED<1:0>) 
BYTE O :MAKE IT EVEN 
TI9EXP: sBEGIN EXPECTED DATA BUFFER 
«WORD 0 sMESSAGE TYPE 
-WORD 0 sDATA FIELD LENGTH 
eWORD 0 sRBPCR 
-WORD 0 3 
- WOR 0 : 
-WORD 0 : 
WOR 0 xST 
eWORD 0 XST4 (ALWAYS PRESENT FOR WRITE SUB.) 
TIQEXSTA: .BLKB 64. cENPECTED READ STATUS AND WRITE FIFO DATA 
TI9SEXEND: sEND EXPECTED DATA BUFFER 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 


T19ID: eASCIZ ‘Transport Bus Interface Loopback* 
OSSR: CIZ ‘WRITE CHARACTERISTICS Failed‘ 
92SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
9SSSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 


SEQ 0245 
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4994 060371 
4995 


4996 
4997 060543 
4998 2 
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LOOPBACK READ STROBE TEST SEQ 0246 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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— 
nm 
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—=—MONONMNNWOTNnorornys 

FSENWEANENONNNN 
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VMSA & —rononony 
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MUEUASSALS Oe = 
NNO 0] 2 = 


TI94SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Nor) Failed’ 

TI9SSSR:.ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Failed’ 

T196SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read FIFO) Failed’ 

T197SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Control) cer 

T198SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Format) Faile 

TIDICMP: .ASCIZ ‘FIFO Status in WORD #9 Incorrect ae Initialize 

TI92CMP: .ASCIZ ‘Read FIFO Data not By to Write FIFO , Data i. in WORD #8" 

TI9SCMP: .ASCIZ opens Status 2 (in #8) incorrect after RESET APE’ 

TIOSCMP: .ASCIZ ‘Read FIFO Data not equal to Write FIFO Data’ 

TI96CMP:.ASCIZ ‘FIFO Status (in WORD #9) Incorrect after READ FIFO’ 

TI97CMP:.ASCIZ ‘Tape Status 2 (in WORD #8) Incorrect after RESET TAPE’ 

TISBCMP:.ASCIZ ‘Control Signal Loopback Data Error, Data is in WORD #8° 

TI9S9CMP:.ASCIZ ‘Read/Write Loopback Data Error, Data is in WORD #8' 

TIOWSTR: .ASCIZ ‘Loopback Data Error when strobed by Write strobe, Data is in WORD #8° 

TIORSTR:.ASCIZ ‘Loopback Data Error when strobed by Read Strobe, Data is in WORD 48° 
EVEN 


; CLEAR MESSAGE BUFFER 


T19CLRBUF : 
SAVREG “SAVE RI-RS UNTIL NEXT RETURN 
OV AT19BFR,R1 SGET MESSAGE BUFFER ADDRESS 
MOV #T19BEND-T19BFR,R2 SIZE OF MESSAGE BUFFER IN BYTES 
10$: CLRB  (R1)¢ [CLEAR A BYTE 
DEC R2 DONE? 
BGT 10$ :BR IF NO 
RTS PC RETURN 
g* 
: SETUP T19PK2 PACKET FOR READ STATUS 
TI9SRD: 
JSR PC, TI9CLRBUF : CLEAR MESSAGE BUFFER 
MOV #Ti9DT2,RO WRITE SUBSYSTEM DATA BUFFER 
MOVB oPu, RDSTATUS, (RO)+ i STORE READ STATUS COMMAND IN BSELO 
CLRB R0) CLEAR | BSEL1 


3+ 
3 SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Status F-FLOPS 


TIORSFIF: 
JSR PC TTOCLRBUF ZCLEAR MESSAGE BUFFER 
MOV #Ti9DT2,RO 3WRITE SUBSYSTEM DATA BUFFER 
MOVB APU. WMISC, (RO) + STORE WRITE MISCELLANEOUS IN BSELO 
move #MS.RSF IF IMS.RSTAP, (RO) STORE BSEL1 CLEAR FIFO CODES 


3+ 
3 SETUP T19PK2 PACKET FOR WRITE NPR 


: PUT: 
; RO CONTAINS BSEL1 NPR DATA 
; SETS NP.WRP SINCE IF 0 IT WRITES WRONG PARITY. 


| i ¢ 
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TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST SEQ 0247 
5051 +. 
5052 06202 T19SNPR: 
5053 062022 004737 061734 JSR PC, T19CLRBUF :CLEAR MESSAGE BUFFER 
5054 062026 012701 062470 MOV ati ‘WRITE SUBSYSTEM DATA BUFFER 
5055 062032 112721 000011 MOVB  #PW.WNPR,(R1)+ ST ORE WRITE NPR IN BSELO 
505 036 052700 000020 BIS #NP.WRP,RO [DON'T WRITE WRONG PARITY 
5057 062042 110011 MOVB = RO, (R1) SSTORE NPR DATA IN BSEL1 
3058 062044 000207 RTS PC RETURN 
5060 s* 
5061 : SETUP T19PK2 PACKET FOR READ FIFO 
506 : INPUT: 
3064 : RO CONTAINS SEL2 BYTE COUNT 
5066 062046 TIORFIF: 
5067 062046 004737 061734 JSR PC, T19CLRBUF ZCLEAR MESSAGE BUFFER 
5068 062052 012701 062470 MOV #Ti9DT2,R ZWRITE SUBSYSTEM DATA BUFFER 
5069 062056 112721 000003 MOVB #Pu. RFIFO, (R1)+ sSTORE READ FIFO IN BSELO 
5070 062062 110021 MOVB RO, (R1)+ SSTORE BYTE COUNT IN BSEL1 
3071 062064 000207 . RTS PC RETURN 
5073 t SETUP TI9PK2 PACKET FOR WRITE FIFO 
5075 + INPUT: 
5076 : RO CONTAINS BYTE COUNT 
5077 : R1 CONTAINS DATA PATTERN BLOCK ADDRESS 
5079 062066 TIOWFIF: 
5080 062066 SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
5081 062072 004737 061734 JSR PC, T19CLRBUF :CLEAR MESSAGE BUFFER 
5082 062076 012702 062470 MOV #Ti9DT2,R2 WRITE SUBSYSTEM DATA BUFFER 
5083 062102 112722 000004 MOVE = #PW. WEIFO, (R2)+ iSTORE WRITE FIFO IN BSELO 
5084 062106 110022 MOVB RO, (R2)+ SSTORE BYTE COUNT IN BSEL1 
5085 062110 005022 CLR (R3)+ ZCLEAR SEL2 (UNUSED) 

062112 112122 10$:  MOVB (R1)+,(R2)+ SSTORE DATA PATTERN BYTE 

5087 062114 005300 DEC RO [DONE ALL BYTES? 
5088 062116 003375 BGT 10$ :BR IF NO 
5089 062120 000207 : RTS PC RETURN 
5091 t SETUP T1I9PK2 FOR WRITE CONTROL 
5093 + INPUT: 
5094 : RO CONTAINS DRIVING DATA PATTERN 
5096 062122 TIOWCTL: 
509 O6e12e 004737 061734 JSR PC, T19CLRBUF i CLEAR MESSAGE BUFFER 
5098 06. 126 012701 062470 MOV #TI9DT2,R1 WRITE SUBSYSTEM DATA BUFFER 
3099 062132 112721 000006 MOVB oPUUCTE CRID¢ :STORE WRITE CONTROL. IN BSELO 
5100 062136 110021 MOVB = RO, (R1) + ZSTORE DATA WORD IN BSEL1 
5101 062140 000207 : RTS PC [RETURN 
3103 : SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
5105 + INPUT: 
3106 : RO CONTAINS DRIVING DATA PATTERN 
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TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST SEQ 0248 

06214 TISWFMT: 
09 062142 004737 061734 JSR PC, T19CLRBUF ZCLEAR MESSAGE BUFFER 
10 062146 012701 062470 MOV ati9oot2, [WRITE SUBSYSTEM DATA BUFFER 
11 062152 112721 000007 MOVB #PW.WEMT,(R1)¢ SSTORE WRITE FORMAT IN BSELO 
1 062156 110021 MOVB = RO, (R1)+ SSTORE DATA WORD IN BSEL1 
160 000207 RTS PC RETURN 

3° 
i : SETUP TI9PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
17 062162 TI9SEXT: 
18 062162 012700 062470 MOV #T19DT2,RO :WRITE SUBSYSTEM DATA BUFFER 
19 062166 112720 000010 MOVB #PW.WMISC, (RO)+ SSTORE WRITE MISCELLANEOUS IN BSELO 
20 062172 112710 000200 MOVB  #MS.EXT, (RO) ‘STORE INVERT EXTENDED FEATURES IN BSEL1 
: 062176 000207 RTS PC RETURN 
5¢ 

$ 3 CLEAR EXPECTED DATA MESSAGE BUFFER 
25 062200 TISCLEXP: 
26 062200 012701 060042 MOV ATISEXP,R1 :GET EXPD ADDRESS 
27 062204 012700 000120 MOV #T19EXEND-T19EXP,RO 'GET EXPD SIZE 
28 062210 105021 10$:  CLRB (RI) SCLEAR A BYTE 

062212 005300 DEC RO > DONE? 

062214 003375 BGT 10$ ‘BR IF NO 

062216 000207 RTS PC RETURN 
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51 
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51 
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51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 


3+ 
Set WORDS 0-7 of expd message BUFFER = to recy since not testing 


062220 TIOSETEXP: 

062220 012702 060042 MOV #T19EXP ,R2 zGET EXPD 

062224 012703 062332 MOV #T19BFR,RS GET READ STATUS RECV BUFFER 
062230 012700 000010 MOV #8. RO sSET WORDS 0-7 EXP=RECV 
062234 012322 5$: MOV (R3)+,(R2)+ sSET EXPD=RECV 

062236 005300 DEC RO DONE WORDS 0-7 WORDS? 
062240 003375 BGT 5$ :BR_IF NO 

062242 000207 RTS PC 2RETURN 


+ 
CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS 


: RO TEST PATTERN 

+ IMPLICIT INPUTS: 

: TISBFCTL = CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 
T 


AARADMNMMNMNNMMMNM SE BREE REE RWWW 
FANVISSBVS ARUN LS SRLS ARGALESSVSARANSSSRVAGRANLSSaNAnRawsooe 


OUTPUTS 
RO - LOW BYTE CONTAINS WRITE CONTROL DATA 
~ HIGH BYTE CONTAINS WRITE FORMAT DATA 
beooce TCNVT «A VREG SAVE _R1-R5 UNTIL NEXT RETUR 
: ™ N 
062250 012701 057776 MOV #TI9SBFCIL,R1 CONVERSION TABLE ADDRESS 
062254 005002 CLR R2 zINIT RESULT OF CONVERSION 





E 
TSVS = HARDWARE TESTS MACRO M1113 25-MAY-82 09:19 PAGE 119-4 


TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST SEQ 0249 
5165 062256 012703 000020 MOV #16. .R3 3;B1T COUNT 
5166 062262 006000 10$: ROR RO 31S This. ott EQUAL TO 1? 
5167 062264 103001 BCC 20$ BR IF 
5168 06 $66 051102 BIS (R1),R2 sSET CONVERTED BIT 
5169 70 005721 20$: TST a 1)+ POINT TO NEXT BIT IN CONVERSION TABLE 
5170 062272 005303 DEC 2D NE? 
5171 062274 003372 BGT ds 3;6R IF NO 
5172 062276 010200 MOV ~ Se RO COPY RESULT 
5173 0623 207 RTS sRETURN 
5174 
5175 
5176 
g1z8 062310 -=<.+1058177770 
gia} sWRITE CHARACTERISTICS COMMAND PACKET 
5183 062310 TIOPACKET: ;COMMAND PACKET FOR TEST 
5184 062310 100004 ~ WORD 100004 *WRITE CHARACTERISTICS COMMAND, WITH ACK 
5185 062312 062320 » WORD TI9DATA * ADDRESS OF CHARACTERISTICS BLOCK 
5186 062314 000000 -WORD 0 
giao 062316 000012 WORD 10. sMINIMUM MESSAGE PACKET SIZE 
5189 062320 TI9SDATA: ;CHARACTERISTICS DATA BLOCK 
5190 062320 062332 -WORD T19BFR sADDRESS OF MESSAGE BUFFER 
5191 062322 000000 -WORD 0 
5192 062324 000024 ~ WORD 20. sLENGTH OF MESSAGE BUFFER 
5193 062326 000000 -WORD 0 7ESS,ENB,EAI, 
gigs 062330 000007 eWORD 7 sEXTENDED FEATURES UNIT NO. 
5196 
sie sMESSAGE BUFFER FOR ALL TEST 8 COMMANDS 
5199 062332 T19BFR: sBEGIN er eeage BUFFER 
5200 062332 000000 «WORD 0 [MESSAGE TYPE 
5201 062334 000000 -WORD 0 sDATA FIELD LENGTH 
5202 062336 000000 -WORD 0 *RBPCR 
5203 062340 000000 -WORD 0 =XSTO 
5204 062342 000000 -WORD 0 :xST1 
5205 062344 000000 -WORD 0 : 
5206 062346 000000 eWORD 0 XST 
5207 062350 000000 eWORD 0 =KST4 (ALWAYS PRESENT er WRITE SUBSYSTEM 
5208 062352 TISBFSTA: .BLKB 64. SREAD STATUS AND WRITE FIFO BUFFER 
3509 062452 TI9BEND: END OF MESSAGE BUFFER 
2513 sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 
5214 062460 -=<.+10>8177770 
5216 460 T19PK2: 
5217 062460 -WORD P.WRTISUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
5218 062462 062470 «WORD 119DT2 ;LOW ADDRESS OF DATA As 
5219 062464 000000 -WORD 0 HIGH ADDRESS OF DATA BLOC 
5220 062466 000012 eWORD 10. SMINIMUM MESSAGE PACKET SITE 
§ 062470 T19DT2: ;DATA BLOCK 
5223 06 “th 000 -BYTE $ 0 


3 

< 
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om 
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5224 8 
5225 062072 000000 - WOR 
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TeST 8: SUBTEST 4 LOOPBACK READ STROBE TEST SEQ 0250 


agsé 062474 -BLKB 64. sWRITE FIFO DATA OUTPUT BUFFER 





ENDTST 
L10066: 
TRAP CSETST 
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TEST 9: READ/WRITE DATA PARITY TEST SEQ 0251 





253) -SBTTL TEST 9: READ/WRITE DATA PARITY TEST 
+e 
ase 3; TEST DESCRIPTION: 
3532 3 This test verifies that the Write Data Parity generator 
5236 : and the Read Data Parity checker operate properly. The 
5237 : Transport Bus signal loopback mode is enabled and a 
5238 3 Set erene parity function is executed. Then various 
5239 : Write Subsystem Memory functions are performed to 
5240 3 write data to and from the FIFO in loopback mode. 
5241 3 The program then checks to insure a Read Data parity 
5242 3 error occurred. 
5243 : A Reset FIFO is done and the Read Data parity 
5244 $ error bit is again tested to insure it cleared. 
5245 : Finally a Clear wens parity function is done 
5246 : and it is verified the data word can pass in loopback 
ast2 3 mode without setting Read Data parity error. ’ 
5249 : TEST STEPS: 
5250 3 
5251 3; REPEAT FOR LOOPCNT 
5252 3 BEGIN 
5253 ; Write to TSSR register to soft initialize the controller 
5254 3 Do WRITE CHARACTERISTICS to check for Extended Features Switch 
5255 ; If Extended Features Hardware Switch Clear then: 
5256 3 Do Write sueyeten Write Miscellaneous to Set Extended Features. 
5257 : Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
e526 : way? ee ALL TEST PATTERNS IN TSTBLK TABLE 
5260 : (* Verify Write Wrong Parity Sets Parity Error *) 
5261 : Do a WRITE NPR to set loopback and tape direction OUT 
526 3 and SET Write wrens Parity. 
526 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
5264 3 Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
5265 s Do a READ FIFO with tape direction OUT to load tape out write latch 
5266 3 (this is when wrong per tty (IWP) is set) 
5267 3 Do a WRITE “ORMAT to set IRESV4==>IRSTR = 0 (sets read strobe low) 
5268 : (Read Strobe sets PAR IN H [Parity Error]) 
5269 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
5270 3 Do a Write Subsystem READ STATUS 
5271 3 If Read Data parity error NOT=1 Then Print Error 
5272 $ Do a Write Misc to RESET FIFO 
5273 3 Do a Write Subsystem READ STATUS 
aor : If Read Data parity error NOT=0 Then Print Error 
5276 3 (* vortty Data can be transferred without a Parity Error *) — 
5277 ; Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strode high) 
5278 3 Do a WRITE NPR to set poopeeck and tape direction OuT 
5279 s and CLEAR Write Wrong poke 
5280 3 Do a WRITE FIFO with byte count equal to 1 and Tape direction OuT 
5281 3 Do a READ FIFO with tape direction OUT to load tape out write latch 
5282 ; Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 (sets read strobe low) 
5283 5; (Read Strobe should NOT set PAR IN H (Parity Error] here) 
5284 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
5285 3 Do a Write Subsystem READ sTatys 
52 3 If Read Data parity error NOT=0 Then Print Error 
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TEST 9: READ/WRITE DATA PARITY TEST 


000012 


3 END 
BGNTST $849 
MOV #TST201ID,RO sASCII MESSAGE fo IDENTIFY TEST 
JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
MOV #10. ,LOOPCNT [PERFORM 10 ITERATIONS 
T20LO0P: 
BGNSUB s4/1141114/447 BEGIN SUBTEST ////////7/7/ 
TRAP — C$BSUB 
is Write to TSSR register to soft initialize the controller 
JSR PC, SOF INIT sWRITE TO TSSR TO yy INITIALIZE 
BCS 10$ [BR IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR, SF IMSG :DEVICE FATAL DURING INIT 
TRAP CSERDF 
WORD 0 
e-WORD SFIERR 
-WORD SFIMSG 
H Do —. DRA TEREST ICS to check for eprendes postures Switch 
10$: CLR TFLG ZCLEAR FATAL ERROR FLAG 
MOV STDODACKET, R4 GET wat ADDRESS OF COMMAND PACKET 
JSR PC, WRICHR 3D0 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ oak E ERROR IF FORCER=1 
Bcs 15$ 7BR IF CARRY SET (GOOD RETURN) 
+ ons 1 eave CONTENTS OF TSSR 
12$: ERRDF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 901 
-WORD TcOSSR 
eWORD PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
15$: CKLOOP sLOOP ON ERROR, IF FLAG ser — 
3 If Extended Features Hardware Switch Clear then: 
3 Do Write sueyeces Write Miscel Laneous to Set Extended Features. 
MOV #T FR BUFFER 
BIT ng.extF, xST2(R1) SEXTENDED FEATURES SWITCH SET? 
BNE 30 :BR IF YES 
JSR PC, T20SEXT sSETUP PACKET FOR WRITE MISC INVERT 
MOV #T20PK2,R4 SGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) 3SET THE PACKET ADDRESS TO EXECUTE 
JSR » CHK [WAIT FOR SSR TO SET 
FORCERROR joerg ORCE ERROR IF FORCER=1 
BCS 30$ BR IF CARRY SET (GOOD RETURN) 
~ 5 RO,R1 SAVE CONTENTS OF TSSR 
228: ERRDF ERRNO, T202SSR,PKTSSR 


:DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 


WORD 
-WORD T202SSP 


pa 


I 4 


Pn ee 


| 
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TEST 9: READ/WRITE DATA PARITY TEST ; SEQ 0253 
062772 012046 -WORD PKTSSR 
5334 774 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
5335 063000 30$: CKLOOP ‘LOOP ON ERROR, IF FLAG SET 
063000 104406 TRAP C$CLP1 
5336 3 Do WRITE Sens renter ets to select reserved unit 7 
5337 063002 012704 066360 MOV #T20PACKET,R4 oe ak HE ADDRESS OF SS ae PACKET 
5338 063006 004737 010662 JSR PC, URTCHE WRITE CHARACTERISTICS COMMAND 
5339 063012 FORCERROR 42$ ;@aDFORCE — IF 4 nteaai 
5340 063026 103407 BCS 50$ yBR IF CARRY SET (GOOD RETURN) 
5341 063030 010001 MOV RO,R1 SAVE CONTENTS OF a4 
a4 4 063032 NEXT. ERRNO 
5343 063032 42$: ERRDF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
063032 104455 TRAP CSERDF 
063034 001607 -WORD 903 
063036 065211 -WORD T20SSR 
063040 012046 -WORD PKTSSR 
5344 063042 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
5345 063046 50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
063046 104406 TRAP CS$CLP1 
2328 
5348 ; REPEAT FOR “, TEST PATTERNS IN TSTBLK TABLE 
S349 63050 012703 002752 MOV #TSTBLK,R3 GET Ag ghee ADDRESS 
5350 063054 012337 002312 100$: MOV (R3)+,DATA :GET A TEST PATTERN 
$351 063960 042737 177400 002312 BIC accsere. DATA :DATA IS BY te 
5352 063066 010337 002316 MOV R3,TSTPTR ;SETUP CURRENT TSTBLK POINTER 
5353 $ Do a WRITE NPR to set loopback and tape direction OUT and 
5354 ; and SET Write Wrong Pari te 
5355 063072 012700 000100 MOV #NP.OUT,RO T TAPE DIRECTION OUT 
5356 063076 052700 000040 BIS #NP.LOOP,RO 3SET LOOPBACK 
5357 063102 042700 000020 BIC #NP..WRP, RO sSET WRITE WRONG PARITY MS acs 
5358 063106 004737 066146 JSR PC, T20WNPR ZSETUP T20PK2 FOR WRITE NP 
5359 063112 012704 066530 MOV #T20PK2,R4 :GET WRITE SUBSYSTEM COPRAND P ACKET 
5360 063116 010465 000000 MOV Ra TSpBing? SET THE PACKET afeness TO EXECUTE 
5361 063122 004737 016336 JSR PC, CHKTSSR [WAIT FOR ll. SET 
5362 063126 FORCERROR 102$ 33 ORCE ERROR IF a 
5363 063142 103407 BCS 105$ BR IF C oc (GOOD RETURN) 
5364 063144 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
5365 063146 NEXT.E 
5366 063146 102$: ERRDF ERRNO,T204SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
063146 104455 TRAP CSERDF 
063150 001610 WORD 
063152 065357 -WORD T204SSR 
063154 012046 «WORD PKTSSR 
5367 063156 005237 002222 jut FATFLG SET FATAL ERROR FLAG 
5368 063162 105$: KLOOP SLOOP ON ERROR, IF FLAG ser 
063162 104406 TRAP CSCLP1 
5369 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe 5 Laare 
5370 063164 012700 000001 MOV WWF .I4RES,RO zIR FS¥sena Taste = 1 
5371 063170 004737 06624 JSR PC, T20WFMT ise we T20PK2 FOR a. 
34 Helles Siaces S59 my ALSTetaS PO Rpt easy 
5374 $0 3360 004737 016336 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 
5375 063210 FORCERROR 112$ jeseres ORCE ERROR IF Foncenet 
5376 063224 103407 BCS 120$ BR IF C SET (GOOD RETURN) 
5377 063226 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
5378 063250 NEXT. ERRNO 
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TEST 9: READ/WRITE DATA PARITY TEST SEQ 0254 
5379 063230 112$: ERRDi ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
063230 104455 TRAP CSERDF 
063232 001611 eWORD 9 
tito 065531 -WORD T208SSR 
0632 012046 -WORD PKTSSR 
5380 063240 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
5381 063244 120$: CKLOOP ;LOOP ON ERROR, IF FLAG ze 
063244 104406 TRAP CS$CLP1 
5382 : Do a wane FIFO with byte count equal to 1 and Tape direction OUT 
5383 063246 012700 01 MOV #7,R0 sWRITE 1 BYT 
5384 063252 012701 002312 MOV #DATA,R1 sFIFO WRITE DATA ADDRESS 
5385 063256 004737 066206 JSR PC, T20WF IF [SETUP T20PK2 FOR WRITE F 
5386 063262 012704 066530 OV #TOOPK2, RG 3GET WRITE SUBSYSTEM COMMAND PACKET 
5387 063266 010465 000000 MOV R4, TSDB(RS) sSET THE reeset oF TO EXECUTE 
5388 063272 004737 016336 JSR PC, CHKTSSR SWAIT FOR SSR TO SET 
5389 063276 FORCERROR 152$ aadFOR ACE ERROR IF — 
5390 063312 103407 BCS 160$ sBR IF CARRY SET (GOOD RETURN) 
5391 063314 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5392 063316 NEXT. ERRNO 
5393 063316 152$: ERRDF ERRNO, T205SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
063316 104455 TRAP CSERDF 
063320 001612 WORD 
063322 065422 eWORD T205SSR 
063324 012046 -WORD PKTSSR 
5394 063326 005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
5395 063332 160$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
063332 104406 TRAP CSCLP1 
53 : Do a READ FIFO with tape direction OUT to load tape out write latch 
5397 3 (this is when wrong parity (IWP) is set) 
5398 063334 012700 000001 MOV #1,R0 sSET READ BYTE COUNT 
5399 063340 004737 066166 JSR PC, T20RFIF + SETUP T20PK2 FOR READ FIFO 
5400 063344 012704 066530 MOV #TOOPK2 RG 3GET WRITE SUBSYSTEM COMMAND PACKET 
5401 063350 010465 000000 MOV R4, TSDB(RS) ant} THe PACKET ADDRESS TO EXECUTE 
5402 063354 004737 016336 JSR PC, CHKTSSR WAIT FOR SSR TO SET 
5403 063360 FORCERROR 172$ hero ORCE ERROR IF FORCER=1 
5404 063374 103407 BCS 180$ IF CARRY SET (GOOD RETURN) 
5405 063376 010001 MOV RO,R1 Save CONTENTS OF TSSR 
5406 063400 NEXT. ERRNO 
5407 063400 172$: ERRDF ERRNO, T206SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
063400 104455 TRAP CSERDF 
063402 001613 -WORD 907 
063404 065466 eWORD T206SSR 
063406 012046 eWORD PKTSSR 
5408 063410 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
5409 063414 180$: CKLOOP LOOP ON ERROR, IF FLAG SET 
063414 104406 TRAP CSCLP1 
5410 ; Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 (sets read strobe low) 
5411 : (Read Strobe sets PAR IN H (Parity Error]) 
5412 063416 005000 CLR RO ZS IRESV4==>IRSTR = 0 
5413 063420 004737 066242 JSR PC rcournt :SETUP T20PK2 FOR WRIT 
ais Oekegs Graces Bese my Reng St Hae'baRey aspneSoa Pace 
5416 063434 004737 Ores JSR PC. CHKTSSR tUAIT FOR SSR TO SET 
5417 063440 FORCERROR 192$ :280F on ORCE ERROR IF FORCER=1 
5418 063454 103407 BCS 200$ 3BR IF CARRY SET (GOOD RETURN) 
5419 063456 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
5420 063460 NEXT. ERRNO 
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TEST 9: READ/WRITE DATA PARITY TEST 
5421 063460 
06 


002222 


00 
016336 


3 
5435 063552 005237 002222 
5436 063556 
063556 


3626 
5447 063630 005237 002222 


5450 063636 


atatatataatttats 
senkee 
Nm 
csssscsscs 
3 


WWW 
N 
— 
oo 


54 
54 
54 
54 
54 
56 
54 
54 
54 
54 
54 
54 
54 


VIS SSVTAR 


192$: 


200$: 


212$: 


2328: 
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ERRDF ERRNO,T208SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSERDF 
«WORD 8 
WORD Teogsse 
“WORD PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP [LOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 
Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 sgots, read strobe high) 
MOV WWF .IGRES,RO s IRESV4==>IRSTR 
JSR T20WFMT SSETUP T20PK2 FOR barre FORMAT 
MOV #TOOPK2 RG :GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) ZSET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR :WAIT FOR SSR TO SET 
FORCERROR @DFORCE ERROR IF FORCER=1 
BCS 220$ z8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF ERRNO,T208SSR,PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 909 
.WORD T208SSR 
“WORD PKTSSR 
INC FATFLG 7SET FATAL ERROR FLAG 
Loop [LOOP ON ERROR, IF FLAG SET 
CSCLP1 
Do a ures o Pbeystes READ STATUS 
JSR sSETUP PACKET FOR READ STATUS 
MOV ATS A R4 [GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDB(RS) iSET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR :WAIT FOR SSR TO SET 
FORCERROR 232 : aDFOR ORCE ERROR IF FORCER=1 
BCS 3BR IF CARRY SET (GOOv RETURN) 
MOV ¥ SAVE CONTENTS OF TSSR 
NEXT. ERRNO 
ERRDF ERRNO,T203SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 910 
<WORD 1203SSR 
<WORD PKTSSR 
INC FATFLG 7SET FATAL ERROR FLAG 
CKLOOP [LOOP ON ERROR, IF FLAG SET 
TRAP  CSCLP1 
If Read pete opacity. error NOT=1 Then Print Erro 
JSR :SET WORDS 0-7 EXPD=RECV (NOT TESTING) 
MOV OrSOEKSTAT R1 3GET EXPECTED READ STATUS 
MOV #TOOBFSTA.R2 3GET RECV READ STATUS 
MOV (R2), (R1) ZSET EXPD WORD #8 = RECV TEMP 
MOV othDs | 2(R1) 7SET EXPD WORD “9 = RECV (NOT TESTED) 
BIS #51. PARERR, (R1) [SET EXP PAR ERR =1 
CLR RO sHIGH RECV ADDRESS FOR cKMsg2 
MOV #T20BFR,R1 LOW RECV ADDRESS FOR CKMSG 
MOV aT OEP. R2 ZEXPD ADDR 
MOV ;NUMBER OF BYTES TO COMPARE 
JSR CKMSG3 SEXPD EQUAL RECV? 
FORCERROR ” 52$.NOTSSR saad 
BCS 260$ :BR IF YES 





SEQ 0255 


—" 
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TEST 9: READ/WRITE DATA PARITY TEST SEQ 0256 














5463 06372 NEXT. ERRNO 
06372 2528: ERRHRD ERRNO, T20SWP,MSGSTAT ZREPORT ERROR 
063722 104456 TRAP CSERHRD 
063724 001617 «WORD 911 
063726 065577 «WORD T20SWP 
063730 012350 -WORD MSGSTAT 
5465 063732 260$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
063732 104406 TRAP CSCLP1 
5466 : Do a Write Misc to RESET FIFO 
5467 063734 012700 000020 MOV #MS..RSFIF,RO eset RESET FIFO COMMAND 
5468 063740 004737 066262 JSR PC, T20WMISC sSETUP T20PK2 FOR WRITE M 
5469 063744 012704 066530 MOV #TOOPK2 RS oT VORITE SUBSYSTEM Chee CKET 
5470 063750 010465 000000 MOV R4, TSDB(RS) et THE PACKET ADDRESS TO EXECUTE 
5471 063754 004737 016336 JSR PC. CHKTSSR WAIT FOR = TO SET 
5472 063760 FORCERROR 282$ s@@DFORCE ERROR IF —— 
5473 063774 103407 BCS 290$ sBR IF CARRY SET (GOOD RETURN) 
5474 063776 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5475 064000 NEXT. ERRNO 
5476 064000 282$: ERRDF ERRNO, T202SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
064000 104455 TRAP CSERDF 
064002 001620 eWORD 912 
064004 065246 -WORD T202SSR 
064006 012046 , «WORD PKTSSR 
5477 064010 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
5478 064014 290$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
064014 104406 TRAP CSCLPI 
8 Do a Write Subsystem READ STATUS 
3 If Read pete 0 pectty error NOT=0 Then Print Error 
5481 064016 737 066334 JSR sSET WORDS 0-7 EX HPDERECY (NOT TESTING) 
5482 064022 012701 065062 MOV Or SOE KS TA RY [GET EXPECTED READ STATUS 
5483 064026 012702 066422 MOV #TOOBFSTA.R2 [GET RECV READ STATUS 
5484 064032 011211 MOV (R2), (R1) SET EXPD WORD #8 = RECV TEMP 
5485 064034 016261 000002 000002 MOV 2(R2), 2(R1) sSET EX ay WORD +s = RECV (NOT TESTED) 
5486 064042 042711 100000 BIC #S1. PARERR, (R1) SET EXP PAR ERR =0 
5487 064046 005000 CLR RO HIGH RECV ADDRESS FOR CKMSG2 
5488 064050 012701 066408 MOV #T20BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
5489 064054 012702 06504 MOV AT20EXP, R2 sEXPD ADDRESS 
5490 064060 012703 000024 MOV #20. RS NUMBER OF BYTES | TO COMPARE 
5491 064064 004737 011500 JSR PC ,CKMSG2 3EXPD EQUAL RECV? 
5492 064070 FORCERROR 302$.,.NOTSSR aad 
5493 064100 103404 BCS 320$ BR IF YES 
5494 064102 NEXT.ERRNO 
064102 302$: ERRHRD ERRNO, T2ORSF ,MSGSTAT sREPORT ERROR 
064102 104456 TRAP CSERHRD 
v64104 001621 eWORD 913 
064106 065706 “WORD T2ORSF 
064110 012350 eWORD MSGSTAT 
5496 064112 ‘ 320$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
064112 104406 CSCLP1 
5497 : (* vorsty Data can be transferred without a Parity a, ~ 
5498 3 pe. a WRI ae FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high) 
5499 064114 012700 000001 Fede ES.RO SIRESV4==>IRSTR = 1 
5500 064120 004737 066242 ir pc T2OWFMT : SETUP T20PK FOR unite A eva 
5501 064124 012704 066530 MOV #T2OPK2,R4 GET VURITE SUBSYSTEM COMMAND PACKET 
2206 064130 Nes 3 000000 MOV Rae TSDB(RS) :Set es PACKET ADDRESS TO EXECUTE 
5503 064134 004737 016336 JSR PC, CHKTSSR WAIT FOR SSR TO $ 
5504 064140 FORCERR OR 332$ n asbFORce ERROR IF FORCER=1 


— 


| TSVS = HARDWARE TESTS 
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5505 064154 163407 
5506 064156 010001 
5507 064160 
5508 064160 

064160 104455 

064162 81 6¢¢ 

064164 065531 

064166 012046 
5509 064170 005237 002222 
5510 064174 

064174 104406 
5511 
5512 
5513 064176 012700 000100 
5514 064202 052700 000040 
5515 064206 052700 000020 
5516 064212 737 0661 
5517 064216 012704 066530 
5518 064222 0104 000000 
5519 064226 016336 
5520 064232 
5521 064246 103407 
5522 064250 010001 
5523 064252 
5524 064252 

064252 104455 

064254 001623 

064256 065357 

064260 012046 
5525 064262 005237 002222 
5526 064266 

104406 

5527 
5528 064270 012700 000001 
5529 064274 012701 002312 
5530 064300 004737 066206 
5531 064304 012704 066530 
5532 064310 010465 000000 
5533 064314 004737 016336 
5534 064320 
5535 064334 103407 
5536 064336 010001 
5537 064340 
5538 064340 

064340 104455 

064342 001624 

064344 065422 

064346 012046 
5539 064350 005237 002222 
5540 064354 
5561 064354 104406 
22¢¢ 064356 012700 000001 
5543 064362 004737 066166 
5544 064366 012704 0665 0 
5545 064372 010465 000000 
5546 064376 004737 016336 





332$: 


$528: 


372$: 
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BCS «3408 ;8R IF CARRY SET (GOOD RETURN) 

MOV _RO,R1 SAVE CONTENTS OF TSSR 

NEXT.ERRNO . 

ERRDF ERRNO,T208SSR,PKISSR — ;DEVICE FATAL SSR FAILED TO SET 
TRAP. CSERDF 
WORD 914 
:WORD T208SSR 
WORD PKTSSR 


INC FATFLG 7SET FATAL ERROR FLAG 
CKLOOP :LOOP ON ERROR, IF FLAG oe 


Do a WRITE NPR to set loopback and tape direction OUT and 
and CLEAR Write Wrong Parity. 
MOV #NP.OUT.RO SET nc OUT 


BIS #NP.LOOP RO sSET L 
BIS #NP.WRP,RO CLEAR WRITE WRONG iat a 
COMMAND 


sSETUP T20PK2 FOR WR Cxet 
3SET_ THE “35m TO SET To EXECUTE 


CSCLP1 


! GET WRITE SUBSYSTEM 
MOV R4, TSDB(RS) 


JSR PC, CHKTSSR WAIT FOR SSR 

FORCERROR 352$ = FORCE ERROR IF FORCER=1 

BCS 360$ BR IF CARRY SET (GOOD RETURN) 

RO,R1 2 SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,T204SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 915 
WORD T204SSR 

PKTSSR 


INC FATFLG :SET FATAL ERROR FLAG — 
CKLOOP [LOOP ON ERROR, IF FLAG SET 


CS$CLP1 
Do a WRITE FIFO with byte count oguet ts to 1 ood Tape direction OUT 


MOV RO 1 BY 

MOV ATA,R1 [FIFO WRITE DATA ADDRESS 

JSR PC, T20WF IF [SETUP T20PK2 FOR WRIT 

MOV T20PK2 RG ZGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDB(RS) iSET THE PACKET ADDRESS TO EXECUTE 

JSR PC; CHKTSSR SWAIT FOR SSR ‘TO SET 

FORCERROR 3728 zaadF one Ce ERROR IF FORCER=1 

BCS 380$ 7BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 eave CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,T20SSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 916 
“WORD T20SSSR 
WORD PKTSSR 


+73 FATAL ERROR FLAG 

;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

Do a READ FIFO with tape direction OUT to load tape out write latch 

MOV 3SET READ BYTE COUNT 


INC FATFLG 
CKLOOP 


JSR PC sTZORFIE [SETUP T20PK2 FOR READ 

MOV #T20PK2,R 3GET WRITE SUBSYSTEM COMMAND PACKET 
MOV Rae rsbBtRs) [SET THE PACKET ADDRESS TO EXECUTE 
JSR PC‘ CHKTSSR [WAIT FOR SSR TO SET 
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9: READ/WRITE DATA PARITY TEST SEQ 0258 


5547 064402 FORCERROR 392$ s@QDFORCE ERROR IF — 
5548 064416 103407 BCS 400$ yBR IF CARRY SET (GOOD RETURN) 
5549 064420 019001 MOV RO,R1 sSAVE CONTENTS OF FeSR 
5550 064422 NEXT. ERRNO 
5551 peress 392$: ERRDF ERRNO,T206SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
064422 104455 TRAP csener 
064424 001625 «WORD 917 
oesees 065466 eWORD T206SSR 
0644 012046 «WORD PKTSSR 
5552 064432 005237 002222 4 FATFLG ;SET FATAL ERROR FLAG 
5553 064436 400$: LOOP ‘LOOP ON ERROR, IF FLAG sl. 
064436 104406 CSCLP1 
5554 3 Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 (sets read Sarabe low) 
5555 : (Read Strobe sets PAR IN H [Parity Error]) 
5556 064440 005000 CLR RO s IRESV4==>IRSTR 
5557 064442 004737 066242 JSR PC, T20WFMT ‘SETUP T20PK2 FOR WRITE FORMAT 
5558 064446 012704 066530 MOV #T2OPK2 RG [GET WRITE SUBSYSTEM COMMAND PAC CKET 
5559 064452 010465 000000 MOV R4, TSDB(R5S) 7SET THE PACKET ADDRESS TO EXECUTE 
5560 064456 004737 016336 JSR PC, CHKTSSR :WAIT FOR SSR TO SET 
5561 064462 FORCERROR 412$ = ORCE ERROR IF ns 
5562 064476 103407 BCS 420$ 37BR IF CARRY SET (GOOD RETURN) 
5563 064500 010001 eve RO,R1 s SAVE CONTENTS OF TSSR 
5564 064502 NEXT. ERRNO 
5565 064502 412$: ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
064502 104455 TRAP CSERDF 
064504 001626 -WORD 918 
064506 065531 eWORD T208SSR 
064510 012046 eWORD PKTSSR 
5566 064512 005237 002222 INC FATFLG SET FATAL ERROR FLAG 
5567 064516 420$: CKLOOP *LOOP ON ERROR, IF FLAG SET 
064516 104406 TRAP CS$CLP1 
5568 g Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 fsets read strobe high) 
5569 064520 012700 000001 MOV WWF. I4RES,RO sIRESV4==>IRSTR = 1 
5570 064524 004737 066242 JSR PC, T20WFMT SETUP T20PK2 FOR WRITE FORMAT 
5571 064530 012704 066530 MOV #T2OPK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 
5572 064534 010465 000000 MOV R4,TSDB(RS) SET THE PACKET ADDRESS TO EXECUTE 
5573 064540 004737 016336 JSR PC, CHKTSSR ;WAIT FOR SSR ant SET 
5574 064544 FORCERROR 432$ s@@DFORCE ERROR IF rencenet 
5575 064560 103407 BCS 440$ sBR I F CARRY SET (GOOD RETURN) 
5576 064562 010001 MOV and. R1 SAVE CONTENTS OF TSSR 
5577 064564 NEXT. ERRNO 
5578 064564 432$: ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
064564 104455 TRAP CSEROF 
064566 001627 eWORD 919 
064570 065531 eWORD T208SSR 
064572 012046 eWORD PKTSSR 
5579 064574 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
5580 064600 440$: CKLOOP [LOOP ON ERROR, IF FLAG ser 
ssa) 064600 104406 CSCLP1 
5582 3 Do a Urise © Supeysten READ STATUS 
5583 064602 004737 066126 JSR sSETUP PACKET 7. READ ety i 
5584 064606 012704 066530 MOV aT £50 OPKS. R4 7GET WRITE SUBSYSTEM COMMAND PACKET 
5585 064612 010465 000000 MOV R4, TSDB(RS) ‘SET THE Packer “ADDRESS TO EXECUTE 
5586 pesels 004737 016336 JSR PC, CHKTSSR WAIT FOR R.... 0 SET 
5587 06462. FORCERROR 452$ ORCE ERROR IF FORCER=1 
5588 064636 103407 BCS 460$ ;BR IF city’ SET (GOOD RETURN) 































TE 


52 
5610 064754 
064754 


11 
5612 064756 
13 66 


5627 065026 

5628 065032 

5629 065032 
065032 
065034 

5630 

5631 


TSVS =_HARDWARE TESTS 


010001 


104455 


07 
012350 
104406 


013703 
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EST 9: READ/WRITE DATA PARITY TEST 


002222 


066422 


000002 
100000 


011500 


op saeS 
00306 


063054 


002222 
017202 
016456 
050506 


000002 


452$: 


472$: 


480$: 


555$: 


560$: 


565$: 


atte R1 


NEXT. ERRNO 
ERRNO, T203SSR,PKTSSR 


ERRDF 


INC FATFLG 

CKLOOP 

If Read pete opertty error NOT=0 
JSR 


S 
MOV OrSOERSTAT R1 

MOV #TOOBFSTA.R2 

MOV (R2), (R1) 

MOV 2(R25,2(R1) 

BIC #S1.PARERR, (R1) 

LR RO 

MOV AT20BFR,R1 

MOV #T2OEXP.R2 

MOV #20. RS 

JSR »CKMSG2 
FORCERROR 472$,NOTSSR 
NEXT 


- ERRNO 
ERRHRD ERRNO, T20CWP,MSGSTAT 


CKLOOP 
FORCEXIT 555$ 
MOV TSTPTR,R3 
CMP R3, #TBLEND 
BHIS 555$ 

JMP 100$ 

ENDSUB 

TST FATFLG 

BEQ 560$ 

JSR PC, CKDROP 
JSR PC, TSTLOOP 
BCC 565$ 

JMP T18L00P 

EXIT TST 


SEQ 0259 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 9 
«WORD T203SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 
Then Print Erro 
sSET WORDS 0-7 EXPD rth) (NOT TESTING) 
3GET EXPECTED READ STATUS 
3GET RECV READ STAT 
sSET EXPD WORD #8 = RECV 
seer ety WORD #9 = RECV (HoT TESTED) 
3SET EXP PAR ERR 
HIGH “ak ADDRESS | “FOR CKMSG2 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADD 
sNUMBER OF BYTES | TO COMPARE 
3EXPD EQUAL RECV? 
‘BR IF YES 
sREPORT ERROR 
TRAP CSERHRD 
«WORD 921 
eWORD T20CWP 
eWORD MSGSTAT 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
RESTORE ent TSTBLK POINTER 
sEND OF TSTBLK? 
[BR IF YES 
D0 ANOTHER TSTBLK PATTERN . 
SAIIIIITTIILL END SUBTEST ////////4/ 
L10074: 
TRAP CSESUB 
sANY FATAL ERRORS ? 
BRANCH T 
;TRY TO DROP THE UNIT 
4+ BP ITERATIONS? 
‘Poor. UNTIL ITERATIONS DONE 
SAALAAAAATE EXIT TEST SAA4A4444/ 
TRAP CSEXIT 
eWORD 110073-. 





——— 
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TEST 9: READ/WRITE DATA PARITY TEST SEQ 0260 
5633 3+ 
5634 ;LOCAL STORAGE FOR THIS TEST 
5635 3° 
3639 
5638 065036 T20MSK: sMASK OF UNTESTED BITS in gene STATUS 
5639 : UNTESTED BITS ARE SET 
5640 065036 377 -BYTE *C<000> sBYTE O MASK 
5641 065037 037 BYTE *C<340> ‘BYTE 1 MASK (PARERR, IRESV2, IRESV1) 
5642 065040 360 -BYTE  *C<017> SBYTE 2 (TIMER A, TIMER B, UNDEF INED<1:0>) 
a7 065041 000 -—BYTE 0 sMAKE IT EVEN 
5645 065042 T20EXP: BEGIN EXPECTED DATA BUFFER 
5646 065042 000000 -WORD 0 ime A 
5647 065044 000090 oW 0 DATA FIELD PE ENGTH 
5648 065046 000000 oW 0 TRBPCR 
5649 065050 000000 " 0 sXST 
5650 065052 000000 -WORD 0 =XST1 
5651 065054 000000 -WORD 0 iXST 
5652 065056 000000 -WORD 0 sXST 
5653 065060 000000 eWORD 0 zXST4 (ALWAYS PRESENT FOR WRITE SUB.) 
5654 065062 T20EXSTA: .BLKB 64. sEXPECTED READ STATUS AND WRITE FIFO DATA 
262? 065162 T20EXEND: sEND EXPECTED DATA BUFFER 
3* 
5657 ;LOCAL TEXT MESSAGES FOR TEST 
38 i 
065162 122 145 141 TST20ID: ASCIZ ‘Read/Write Data Parity’ 
5661 065211 127 122 111 T2O0SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
5662 065246 127 122 111 T202SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed‘ 
5663 065312 127 122 111 T203SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read Status) Failed’ 
065357 127 122 111 T204SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Nor) Failed’ 
5665 065422 127 122 111 T205SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Failed’ 
065466 127 122 111 T206SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read FIFO) Failed’ 
5667 065531 127 122 111 T208SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Format) Failed’ 
065577 122 145 141 OSWP: .ASCIZ ‘Read Data Parity Error (PARERR) Failed to Set after Write wong | Parity’ 
9 065706 122 145 141 T2ORSF: .ASCIZ ‘Read Data Parity Error (PARERR) Failed to Clear after RESET 
3070 066007 122 145 141 WP peels "Read Data Parity Error (PARERR) occurred in Data Loopback’ 
5672 
5673 
rth} {CLEAR MESSAGE BUFFER 
5676 066102 T20CLRBUF : 
5677 066102 SAVREG SAVE R1-R5 UNTIL wear Ai 
5678 066106 012701 066402 OV regere Wt 7GET MESSAGE BUFFER ADDRESS 
5679 066112 012702 000120 MOV #T20BEND-T20BFR,R2 SIZE y! MESSAGE BUFFER IN BYTES 
5680 066116 105021 10$: CLRB (R1)+ :CLEAR A BYTE 
5681 066120 00530. DEC R2 
5 066122 00337 BGT 10$ ‘BR # NO 
5683 066124 000207 RTS PC RETURN 
Batt 
2686 2  serup T20PK2 PACKET FOR READ STATUS 


5 
5688 066126 aa 
5689 066126 004737 066102 JSR PC, T20CLRBUF ZCLEAR MESSAGE BUFFER 








5690 066132 
5691 peeizs 
044 06614 
5693 066144 
5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 066146 
704 066146 
5705 066152 
5706 066156 
5707 066162 
5708 066164 
5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 066166 
5717 066166 
5718 066172 
5719 066176 
5720 066202 
5721 066204 
5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 066206 
5730 066206 
5731 066212 
5732 066216 
oe Re 
5735 066230 
5736 066232 
eRe 
5739 066340 
5740 

5741 

574 

574 

5744 

5745 
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012700 


000207 


Vy) 
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066540 
000005 


066102 
066540 
000011 


066102 
066540 
000003 


066102 
066540 
000004 


10$: 





“JSR PC, T20CLRBUF 


" SAVREG 
JSR 


MOV #T20DT2,RO WRITE SUBSYSTEM DATA BUFFER 

MOVE #P. RDSTATUS, (RO) + sSTORE READ STATUS COMMAND IN BSELO 
CLRB (RO) CLEAR BSEL1 

RTS PC sRETUR 


T20PK2 PACKET FOR WRITE NPR 


"RO CONTAINS BSEL1 NPR DATA 


C, T20CLRBUF :CLEAR MESSAGE BUFFER 
MOV #1200 :WRITE SUBSYSTEM DATA BUFFER 


MOVB *Pu. UNPRY (Ri) 
MOVB RO, (R1) STORE NPR DATA IN BSEL1 


RTS PC :RETURN 


T20PK2 PACKET FOR READ FIFO 


"RO CONTAINS SEL2 BYTE COUNT 


He ye MESSAGE BUFFER 


MOV #T200T2,R1 WRITE SUBSYSTEM DATA BUFFER 
MOVB  #PW.RFIFO,(R1)+ :STORE READ FIFO IN BSELO 
MOVB RO, (R1)+ ZSTORE BYTE COUNT IN BSEL1 
RTS PC RETURN 


T20PK2 PACKET FOR WRITE FIFO 


"RO CONTAINS BYTE C 


OUNT 
R1 CONTAINS DATA PATTERN BLOCK ADDRESS 


zSAVE_R1-R5 UNTIL Hy Hy RETURN 
ey MESSAGE BUFFER 

WRITE SUBSYSTEM DATA BUFFER 
STORE WRITE FIFO IN Heat ELO 


PC, T20CLRBUF 

MOV #T2ODT2,R2 

MOVB #PW.WFIFO, (R2)+ 
RO (R2)+ 


MOVB 3 STORE ors COUNT IN BSEL1 
CLR (R sCLEAR SEL2 (UNUSED) 

MOVB (RID®, (R2)* STORE DATA PATTERN BYTE 
DEC RO sDONE ALL BYTES? 

BGT 10$ :BR_ IF NO 

RTS PC ;RETURN 


T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER 


"RO CONTAINS DRIVING DATA PATTERN 


SEQ 0261 
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TEST 


60 66 
5761 066272 
5762 066274 
5763 
5764 
5765 
5766 066276 
5767 066276 
5768 066302 
5769 066306 
5770 066312 
5771 
5772 
5773 
5774 066314 
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9: READ/WRITE DATA PARITY TEST 


066540 
000010 


065042 
000120 


065042 
066402 
000010 


T20WFMT: 
JSR PC feoel Reve 
MOV aT . 
MOVE #PW.WFEMT, (R1)+ 
MOVB RO,(R1)+ 
RTS PC 


3% 
: SETUP T20PK2 PACKET FOR WRITE MISC. 
: RO CONTAINS WRITE MISC DATA 
T20wMISC: 
MOV #T20DT2,R1 
MOVE  #PW.WMISC,(R1)+ 
RO, (R1) 


cue MESSAGE BUFFER 
WRITE SUBSYSTEM DATA BUFFER 
STORE WRITE FORMAT IN BSELO 


STORE DATA WORD IN BSEL1 
RETURN 


WRITE SUBSYSTEM DATA BUFFER 
sSTORE WRITE MISCELLANEOUS IN 


N BSELO 
i STORE | INVERT EXTENDED FEATURES IN BSEL1 


: SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 


MOVE 
tS 
F20SEXT: 
MOV #T20DT2,RO 
MOVB #PW.WMISC, (RO) + 
MOVB #MS .EXT, (RO) 
RTS PC 


3+ 
: CLEAR EXPECTED DATA MESSAGE BUFFER 


T20CLEXP: 
MOV #T20EXP,R1 
MOV #T20EXEND-T20EXP,RO 
10$: .- (R1)+ 


RO 
BGT 10$ 
PC 


3+ 
Set WORDS 0-7 of expd message BUFFER = 


T20SETEXP: 
MOV #T20EXP,R2 
MOV #TOOBFR._R3 
MOV #8. RO 

S$: MOV (R35+, (R2)¢ 
DEC RO 
BGT 5$ 
RTS PC 


[WRITE CHARACTERISTICS COMMAND PACKET 


T20PACKET: 
«WORD 100004 
~WORD T2ODATA 
-WORD 0 
;WORD 10. 


WRITE SUBSYSTEM DATA BUFFER 


STORE WRITE MISC IN BSELO 
: STORE | INVERT EXTENDED FEATURES IN BSEL1 


R A BYTE 


[BR if F NO 


RETURN 


3GET = ADDRESS 
GET E EXPD SIZE 


ELLANEOUS 


to recv since not testing 


3GET EXPD 
GET READ STATUS eet BUFFER 
T WORDS 0-7 EXP=RECV 


3SE 
3SET EXPDSR ECV 
;DONE WORDS 0- 


BR I 
?RETURN 


7 WORDS? 


:COMMAND PACKET FOR TEST 
WRITE CHARACTERISTICS 
ADDRESS OF CHARACTERISTICS BLOCK 


sMINIMUM MESSAGE PACKET SIZE 





COMMAND, WITH ACK 


SEQ 0262 








5807 
sane 066370 


809 066370 
5810 066372 
5811 066374 
5812 066376 
5813 066400 
5814 
5815 
5816 
5817 
5818 066402 
5819 066402 
5820 066404 
5821 066406 
5822 066410 
5823 066412 
5824 066414 
5825 066416 
5826 066420 
5827 066422 
5828 066522 
5829 
5830 
5831 
5833 
tH 066530 


836 066530 
5837 066532 
5838 066534 
5839 066536 
5840 
5841 066540 
5842 066540 
5843 066541 
5844 066542 
5845 066544 
5846 
5847 
5848 066644 
066644 


066644 
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066402 
000000 


000024 
000000 
000007 
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SEQ 0263 

T20DATA: : CHARACTERISTICS DATA BLOCK 

- WORD T20BFR SADDRESS OF MESSAGE BUFFER 

;WORD 20. : LENGTH OF MESSAGE BUFFER 

“WORD 0 7ESS,ENB,EAI,ERI 

<WORD 7 EXTENDED FEATURES UNIT NO. 
ZMESSAGE BUFFER FOR ALL TEST 17 COMMANDS 
T20BFR: :BEGIN MESSAGE BUFFER 

.WORD 0 :MESSAGE TYP 

:WORD 0 DATA FIELD LENGTH 

<WORD 0 *RBPCR 

“WORD 0 :XST 

“WORD 0 :XST1 

D O :XST 

“WORD 0 :XST 

<WORD 0 =XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
T20BFSTA: .BLKB 64. TREAD STATUS AND WRITE FIFO BUFFER 
TOOBEND : SEND OF MESSAGE BUFFER 


[WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
2 «=<. 41028177770 


T20PK2: 
eWORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
~ WORD T20DT2 [LOW ADDRESS OF DATA yr 
eWORD 0 sHIGH ADDRESS OF DATA BLO 
eWORD 10. :MINIMUM MESSAGE PACKET Size 
T20DT2: sDATA BLOCK 
-BYTE 0 3;BSELO 
-BYTE 0 sBSEL1 
-WORD 0 3sSEL2 
“BLKB 64. sWRITE FIFO DATA OUTPUT BUFFER 
ENDTST 
L10073: 


TRAP CSETST 


5 
of = HARDWARE TESTS MACRO M1113 25-MAY=82 09:19 PAGE 122 


T 10: MANUAL INTERVENTION SEQ 0264 
$850 .SBTTL TEST 10: MANUAL INTERVENTION 

585 :THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A TEST" 
585 STHAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS O 
5854 [THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
5855 STHIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
5856 :SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
5857 [THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
5858 TARE BY TYPING <CTRL=C> OR SELECTING CODE 7. 

5859 SSELECTION CODES AND SUBROUTINES ARE: 

5860 ; 

5861 

5862 : CODE ROUTINE 

5863 : 

5864 : 0 HELP. PRINTS THIS MENU. 

5865 : 1 TURN ON ALL M7196 LED INDICATORS 

5866 : 2 TURN OFF ALL M7196 LED INDICATORS 

5867 3 3 OFFLINE/ONLINE ATTENTION TEST 

5868 : 4 WRITE=PROTECT TEST 

5759 : 5 INITIATE TRANSPORT SERVO EXERCISER 

5370 ; % PRINT EXTENDED TRANSPORT STATUS 

5871 : 7 EXIT (RETURN TO SUPERVISOR) 

oars 

3874 SEACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 

5876 ; 

5877 : 

5878 [PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 

5880 : 

5881 SCAUSES ALL THREE LED INDICATORS ON THE M7196 MODUL 

5882 £70 GE ILLUMINATED. AFTER INITIATING THIS ROUTINE. THE OPERATOR 

5883 SSHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT. 
5884 THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 

5885 ZSET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO D°IVE THE 
5886 PROCESSOR NOT OK'’ LED. THEN IT ENTERS A ¥ 

5887 [WRITES THE LOW OYTE OF TSDB AND READS THE TSSR. THESE LATTER TwO 
5888 TOPERATIONS WILL CAUSE THE “NOT SSR’ I 0 
5889 [GLOW == THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 

5890 ;REASONABLY VISIBLE. 

2892 : 

5893 s INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 

5894 SEXTINGUI SH 

5895 : 

5896 ; 

5897 ; 

5898 

5899 [THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 

5900 [WRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS, 

5901 TISSUES A MESSAGE BUFFER RELEASE C MESSAGE ON THE 
590 SCONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LI 

590 SSWITCH ON THE SPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. 
5904 SEACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE OR 
5905 [VICE-VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM 


5906 WILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT. 
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| TEST 10: MANUAL INTERVENTION SEQ 0265 
| 5907 ;THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 
5908 SSTATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT. 
| 5909 SIN ADDITION, MHEN THE TRANSPORT IS PLACED OFFALINE, THE PROGRAM 
5910 ; ISSUES A SEQUENCE OF TAPE-MOTION COMMANDS (READ, WRITE, POSITION, ETC. 
5911 VERIFIES T FOR EACH COMMAND, FUNCTION REJECT TERMINATION. 
3918 SRESULTS, ALONG Malte THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING 
5914 : 
5915 i THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
5916 APE REEL T T DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN 
5917 eves i OR TH He OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
5918 [UPON T +s RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
5919 [A WRITE=PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 
5920 TAPE AND EX XPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
5921 [THE WRITE FUNCTION C T BE PERFORMED BECAUSE THE REEL IS 
5922 :WRITE=PROTECTED. 1f ae 4 NPPROERIATE TERMINATION IS NOT RECEIVED, 
5923 TAN ERROR IS REPORTED. 
5924 ; 
HF } 
5927 SINSTRUCTS THE OPERATOR TO PLACE THE IAPE TRANSPORT(S) 
5928 ON-LINE ( ARE OFF=LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED 
5929 ‘STATUS READOUT” FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE 
5930 ZTHE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF 
5931 S TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 
5932 :SUCH IS ISSUED. 
5933 : 
5934 $ 
5935 ; 
5936 : 
5937 066646 BGNTST 
066646 T10:: 
5942 066646 RFLAGS RO :GET OPERATOR FLAGS 
066646 104421 TRAP  CSRFLA 
5943 066650 001403 BEQ 21$ :BR, IF OK TO RUN 
5944 066652 012700 072230 MOV #T38NE RO TEST NOT EXECUTED" 
5945 066656 000402 BR 3$ ‘JUMP IF NOT FIRST TEST 
5946 066660 21$: 
5947 066660 012700 073345 MOV #T381D,RO :TEST ID MESSAGE 
5948 066664 004737 016510 3S: JSR PC, TSTSETUP :D0 THE COMMON SETUP 
5949 066670 004737 020500 JSR PC. CHKMAN 31S MANUAL INTERVENTION ALLOWED? 
5950 066674 10340 BCS 228 IF MANUAL INTER ALLOWED 
5951 066676 000137 071430 JMP 64$ ?JUMP IF NOT ALLOWED 
5952 066702 228: 
5956 066702 005037 002222 2$: CLR FATFLG CLEAR THE FATAL ERROR FLAG 
5957 066706 012737 176750 071442 MOV #65000. , T38DLY SSET UP DELAY COUNTER 
5958 066714 004737 015774 5$: JSR PC, SOF INIT D0 A SOFT INIT 
5959 066720 103427 BCS 238 
066722 010001 MOV RO,R SCONTENTS OF TSSR REGISTER 
5961 066724 032701 000200 BIT Oséh. R1 [CHECK FOR TSSR SET 
066730 001023 BNE 23$ [KEEP GOING IF NOT SET 
5963 066732 DELAY 250 [CALL DELAY ROUTINE 
066732 012727 000250 MOV #250, (PC)+ 
066736 000000 WORD 
066740 013727 002116 MOV LSDLY, (PC)+ 
066744 000000 WORD 


066746 005367 177772 DEC ~6(PC) 





ay la IE See ai 
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TEST 10: MANUAL INTERVENTION SEQ 0266 
066752 061375 BNE 4 
066754 005367 177756 DEC =22(PC) 
066760 001367 BNE .-20 

5964 066762 005337 071442 DEC T38DLY : BUMP COUNTER DOWN 
5965 066766 001352 BNE 5$ IF MORE TIME LEFT 
5966 066770 ERRDF ERRNO, SFIERR,SFIMSG {REPORT FATAL ERROR 
066770 104455 TRAP CSERDF 
066772 001751 «WORD 1001 
066774 003652 “40 SFIERR 
066776 012034 SFIMSG 
5967 067000 012700 073372 23$: MoV #MIMENU,RO MENU OF MANUAL INTERVENTIONS 
067004 012701 000006 MOV #6,R1 MAXIMUM ALLOWED SELECTI 
5969 067010 004737 020256 JSR PC.GETSEL 360 GET THE OPERATORS SELECTION 
5970 067014 010004 MOV ROR T NUMBER FROM ROUTINE 
5971 067016 006304 ASL [CONVERT TO WORD OFFSET 
5972 067020 000174 067024 JMP @6$(R4) ‘JUMP TO PROPER LOOP 
5973 067024 066702 68: .WORD 2$ [RETYPE THE MENU 
5974 067026 067042 ;WORD 10$ : 1 TURN ON LED‘ 
5975 067030 067324 SWORD 15$ : 2 TURN : 
5976 067032 067 <WORD 20$ : 3 ONLINE ATTENTION 
5977 067034 070212 <WORD 25$ : 4 WRITE PROTECT 
5978 067036 071146 .WORD 35$ 3 9 EXTENDED TRANSPORT STATUS 
5979 067040 071424 <WORD 63$ : 6 LEAVE THE TEST 
5980 067042 10$: PRINTF #T38MS2 [TELL OPERATOR TO CNTRL=C FOR EXIT 
067042 012746 073241 MOV #T38MS2,-(SP) 
067046 012746 000001 MOV fl, (SP5 
067052 010600 MOV SP“R 
067054 104417 TRAP CSPNTF 
067056 062706 000004 #4,SP 
5981 067062 004737 073776 JSR PC, T38REST 3SET PACKET TO INITIAL VALUES 
5982 067066 004737 015774 JSR PC. SOF INIT :D0 Sort INIT OF CONTROLLER 
5983 067072 103405 BCS 100$ 7BR IF SOFT INIT = OK 
5987 067074 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
5988 067076 ERRDF ERRNO, SFIERR, SF IMSG [DEVICE FATAL ERROR DURING 1 INIT 
067076 104455 CSEROF 
7100 001752 TUORD 1002 
067102 003652 <WORD SFIERR 
7104 012034 .WORD  SFIMSG 
5989 067106 013737 002202 072170 100$: MoV UNITN, T38DSW 7SET UNIT NUMBER 
5991 067114 012704 072150 MOV #T38PK2,R4 UBROUTINE NEEDS PACKET ADDRESS 
067120 004737 010662 JSR PC WRTCHR # ISSUE WRITE CHARACTERISTICS 
5993 067124 103405 acs 110$ IF COMMAND ISSUED Ok 
5997 067126 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
067130 ERRHRD ERRNO, WRTMSG, SF IMSG ‘WRITE CHARACTERISTISC FAILED 
7130 104456 CSERHRD 
067132 00175 Teono 1003 
067134 005056 -WORD WRTMSG 
067136 012034 -WORS  SFIMSG 
5999 067140 110$: 
6000 067140 112737 000000 071461 move =s #0 r38Bst ZCLEAR BIT #4 
6001 067146 112737 000011 071460 MOVB #11, 738BS0 [WRITE MISC COMMAND 
6002 067154 012704 071450 MOV #T3APACKET RG 7SET UP NEW WRT. SUBSYS MEM. COMMAND 
4 ZNOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 


600 
6006 067160 010465 000000 MOV R4, TSDB(RS) 3SET THE PACKET ADDRESS 
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TEST 10: MANUAL INTERVENTION SEQ 0267 
6007 067164 004737 016336 JSR PC, CHKTSSR :WAIT FOR SSR TO SET 
6008 067170 103405 BCS 156$ ‘BR IF CARRY SET (Go00 RETURN) 
6009 067172 010001 MOV RO,R1 ‘SAVE CONTENTS OF TSSR 
6013 067174 ERRDF ERRNO,T38SSR,PKTSSR SDEVICE FATAL SSR FAILED 10, SET 
067174 104455 TRA CSERDF 
067176 001754 TOORD 004 
067200 072646 “WORD T38SSR 
067202 012046 "WORD PKTSSR 
6014 067204 150$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
067204 104406 TRAP CSCLP1 
6015 067206 SETPRI #PRIO7 :RAISE THE PRIORITY 
067206 012700 000340 MOV #PR107,RO 
067212 104441 CSSPRI 
6016 067214 005037 071434 CLR TTION2 ; ASSUME INTERRUPTS ARE ENABLED 
6017 067220 032737 000100 177560 BIT #100, a#TTICSR ARE TTI INTERRUPTS ON ? 
6018 067226 001005 BNE 701$ {BRANCH IF YES 
6019 067230 005237 071434 INC TTION2 [FLAG SET IF INTERRUPTS OFF 
067234 052737 100 177560 BIS #100, a#TTICSR TENABLE INTERRUPTS 
6021 067242 012701 0 701$: MOV #TTIVEC,R1 i START OF TTI VECTORS 
6022 067246 011137 071436 MOV (R1), TVSAV2 ‘SAVE THE CURRENT TTI VECTOR 
6023 067252 012721 070730 MOV #590$, (R1)+ ‘ory NEW INTERRUPT ROUT INE 
6024 067256 011137 071440 MOV (R1) TPSAV2 sSAVE THE V PRIORITY 
5 067262 012711 000340 MOV #pri07, (R1) USE PRIDRITY. SEVEN 
6026 067266 SETPRI #PRI SLOWER INTERRUPT BR LEVEL 
067266 012700 000000 MOV #PR100,RO 
067272 104441 TRAP _— C$SPRI 
6027 067274 012701 177777 MOV #-1,R1 DATA TO URITE TO TSDB 
6028 067300 000240 12$: NOP ZALLOW OPERATOR TO TYPE “C 
6029 067302 012702 001750 MOV #1000. ,R2 “SET-UP INNER LOOP 
6030 067306 110165 000000 14$:  MOVB  R1,TSDB(RS) SWRITE DATA TO TSDB 
6031 067312 016500 000062 MOV TSSR(RS) RO TREAD T 
6032 067316 00530 DEC R2 EREDUCE INNER COUN 
6033 067320 00137 BNE 14$ =LOOP TILL EXPIRES. 
4 067322 000766 BR 12$ ‘tooP UNTIL HALTED 
6036 067324 15$: PRINTF #T38MS2 sTYPE CNTL C TO EXIT 
067324 012746 073241 #T3BNS2. -(SP) 
067330 012746 000001 MOV #1,-( 
067334 010600 MOV SPR 
067336 104417 TRAP CSPNTF 
067340 062706 000004 ADD #4,SP 
6037 067344 004737 015774 JSR PC, SOFINIT :00 SOFT INIT OF CONTROLLER 
6038 067350 103405 BCS 2008 F SOFT INIT = 0K 
6042 067352 010001 MOV RO,R1 {SAVE CONTENTS OF TSSR 
6043 067354 ERRDF ERRNO, SFIERR, SF IMSG [DEVICE FATAL ERROR DURING iit 
7354 104455 CSERDF 
067356 001755 TeORD 1005 
sere Sie te eine 
067364 2008: 
5 067364 013737 002202 072170 MOV UNITN. 138 , 1380Su :SET UNIT NUMBER 
6046 067372 012704 072150 MOV [SUBROUTINE NEEDS PACKET ADDRESS 
6047 067376 004737 010662 JSR PC WR cate TISSUE WRITE CHARACTERISTICS 
6048 067402 103405 BCS 216s 7BR, IF COMMAND | ISSUED 
6052 067604 010001 MG / RO,R1 [SAVE CONTENTS O 
6053 067406 ERRHRD ERRNO, WRTMSG, SF IMSG SWRITE CHARACTERISTiSc FAILED 
7406 104456 CSERHRD 
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10: MANUAL INTERVENTION SEQ 0268 


067410 061756 -WORD 1006 
gore le 005056 -WORD WRIMSG 
0674 012034 «WORD SFIMSG 


6054 FERRARA AAAAAAARERAAERARAEERERARAEERERERRAERERAERRERERERRERRERREREEE 

6055 : 

6056 ; THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF 

6058 + POReeeeneneenenenenennnnerenengnnennaneneneneenananeeenanesenenes 

6059 067416 10S: 

6060 067416 112737 000000 071461 move #0, T38BS1 ZCLEAR BIT #4 

6061 067424 112737 000025 071460 move #25,738BS0 ‘STOP DRIVE Test 22 
067432 012704 071450 MOV AT3BPACKET,R4 [SET UP NEW WRT. SUBSYS MEM. COMMAND 

6063 067436 010465 000000 MOV R4, TSDB(RSS ‘SET THE PACKET’ ADDRESS 

6064 067442 004737 016336 JSR PC. CHKTSSR ‘WAIT FOR SSR TO SET 

6065 067446 103405 BCS 256$ [BR IF CARRY SET (go00 RETURN) 

6066 067450 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 

6070 067452 ERRDF ERRNO, T38SSR,PKTSSR SDEVICE FATAL SSR FAILED To SET 
067452 104455 CSERDF 
067454 001757 MeoRD 1007 
067456 072646 “WORD  T38SSR 
067460 012046 “WORD PKTSSR 

6071 067462 250$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
067462 104406 TRAP — CSCLP1 

6072 067464 SETPRI #PRIO7 ZRAISE THE PRIORITY 
067464 012700 000340 MOV #PR107, RO 
067470 104441 CSSPR 

6073 067472 005037 071434 CLR TTION2 ZASSUME INTERRUPTS ARE ENABLED 

6074 067476 032737 000100 177560 BIT #100, a#TTICSR TARE TTI INTERRUPTS ON 

6075 067504 001005 BNE 710$ ‘BRANCH IF YES 

6076 067506 005237 071434 INC TTION2 ZFLAG SET IF INTERRUPTS OFF 

6077 067512 052737 000100 177560 BIS #100, Q4TTICSR TENABLE INTERRUPTS 

6078 067520 012701 000060 710$: MOV TIVEC,R1 [START OF TTI VE CT 

6079 067524 011137 071436 MOV ‘Ri TVSAV2 ZSAVE THE CURRENT TTI VECTOR 
067530 012721 070730 MOV 90$, (R1)+ ‘SET NEW 

6081 067534 011137 071440 MOV (R1), TPSAV2 SSAVE THE VECTOR PRIORITY 

6082 067540 012711 MOV #PRI07, (R1) SUSE PRIORITY SEVEN 

6083 067544 SETPRI #PRIOO SLOWER INTERRUPT BR LEVEL 
067544 012700 000000 MOV #PR100,RO 
067550 104441 TRAP _— C$SPRI 

6084 067552 000240 260$: NOP ZALLOW CNTL C 

6085 067554 000776 BR 260$ SLOOP UNTIL STOPPED 

6087 

6088 067556 20$: PRINTF #T38MS2 :TELL'EM WHAT TO TYPE 
067556 012746 073241 MOV #T38MS2,-(SP) 
067562 012746 000001 MOV #1,=(SP) 
067566 010600 MOV RO 
067570 104417 TRAP eseutr 
067572 062706 000004 ADD 

6089 067576 SETPRI #PRIOO ZLOWER PRIORITY TO ALLOW INTERRUPTS” 
067576 012700 000000 mov #PRI00,RO 
067 104441 TRAP CSSeRt 
067, 005037 002224 CLR INTRECV ZCLEAR INTERRUPT RECEIVED FLAG 

6091 067610 004737 015774 JSR PC, SOFINIT [D0 SOFT INIT OF CONTROLLER 

6092 067614 103405 BCS 3063 :BR IF SOFT INIT = Ok 
067616 010001 [SAVE CONTENTS OF 


MOV RO,R1 TSSR 
7 067620 ERRDF ERRNO,SFIERR,SFIMSG DEVICE FATAL ERROR DURING INIT 
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AL INTERVENTION SEQ 0269 
067620 104455 TRAP CSERDF 
067622 001760 .WORD 1008 
067624 003652 “WORD  SFIERR 
067626 012034 <WORD  SFIMSG 
6098 0676 300S: 
067630 013737 002202 072170 MOV UNITN, T38DSW :SET UNIT NUMBER IN PACKET 
6100 067636 012737 000040 072166 MOV #BITS.T38EAI ‘ENABLE ATTENTION INTERRUPTS 
6101 067644 012704 072150 MOV #T38PK2,R4 s SUBROUTINE NEEDS PACKET ADDRESS 
6102 067650 004737 010662 JSR PC ,WRTCHR Z1SSUE WRITE CHARACTERISTI 
6103 067654 103405 BCS 316$ “BR, IF COMMAND IS 
6107 067656 010001 MOV RO,R1 iSAVE C CONTENTS OF TSSR 
108 067660 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 
067660 104456 TRA CSERHRD 
067662 001761 TUORD 1009 
067664 005056 “WORD WRTMSG 
7666 012034 “WORD SFIMSG 
6109 067670 310$: 
6110 067670 012704 072200 MOV #T38PK3,R4 :SET UP NEW PACKET FOR MESS BUF REL 
6111 067674 010465 000000 MOV R4, TSDB(RS) SMESSAGE BUFFER RELEASE,ACK,CVC=1 CMD 
6112 067700 004737 016250 JSR PC.WAITF WAIT FOR SSR TO SET 
6113 067704 005002 CLR 2 <MAKE SURE ALL IS CLEAR 
6114 067706 016501 000002 MOV TSSR(RS) RI 3GET TSSR STATUS 
6115 067712 032701 000100 BIT #OFL,R1 21S OFL SE 
6116 067716 001402 BEQ 320$ 7BR, IF OFL IS NOT SET 
6117 067720 052702 000100 BIS #OFL,R2 SET OF IN EXPECTED 
6118 067724 052702 000200 320$: BIS #SSR.RO 3SET_UP EXPECTED 
6119 067730 020201 CMP R2.Ri :1S E VERY THING Ok 
6120 067732 001404 BEQ 350$ F ALL IS WELL 
6124 067734 ERRHRD ERRNO, T38SST.PKTSSR {DEVICE FATAL SSR FAILED TO SET 
067734 104456 TRAP CSERHRD 
7736 001762 ” ORD 1010 
067740 073056 “WORD T38SST 
067742 012046 “WORD PKTSSR 
6125 067744 350$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
7744 104406 TRAP _ CSCLP1 
6126 067746 PRINTF #T38MS1 ZTELL OPERATOR TO TOGGLE SWITCH 
067746 012746 073146 MOV #T38MS1,-(SP) 
067752 012746 000001 MOV #1,-(SP) 
067756 0106 MOV SP.RO 
067760 104417 TRAP _— CSPNTF 
067762 062706 000004 ADD #4,SP 
6127 067766 PRINTF #T38MS2 ZTELL OPERATOR TO DO “C TO EXIT 
067766 012746 073241 MOV #T38MS2,-(SP) 
067772 012746 000001 MOV #1,-(SP5 
067776 010600 MOV SP.RO 
070000 104417 TRAP CSPNTF 
070002 062706 000004 #4,SP 
6128 070006 SETPRI #PRIO7 ZRAISE THE PRIORITY 
070006 012700 000340 #PRI07.RO 
6129 pated b0s037 071434 CLR TTION2 ZASSUME INTERRUPTS ARE ENABLED ane 
6130 070020 032737 000100 177560 BIT F106 Se TTICSR ZARE if INTERRUPTS ON 
6131 070026 001005 BNE 720$ H IF YES 
132 070030 005237 071434 INC 1on2 tFLAG SET IF INTERRUPTS OFF 
6133 070034 052737 000100 177560 BIS #100, a#TTICSR TENABLE INTERRUPTS 
6134 070042 912701 720$: MOV TTIVEC,R1 [START OF TTI VECTORS 
6135 070066 011137 0714 MOV (R1), TVSAV2 [SAVE THE CURRFNT TT] VECTOR 
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MANUAL INTERVENTION SEQ 0270 

6136 070052 012721 070730 MOV #590$, (R1)+ :SET NEW INTERRUPT ROUTINE 

6137 070056 011137 071440 MOV (R1), TPSAV2 SSAVE THE VECTOR PRIORITY 

6138 070062 012711 000340 MOV #pR107, (R1) SUSE PRIORITY SEVEN 

6139 070066 SETPRI #PR SLOWER INTERRUPT BR LEVEL 
07 012700 000000 #PR100, RO 
070072 104441 TRAP C$SP 

6140 070074 000240 360$: NOP ALLOW CONTROL C 

6141 070076 005737 002224 TST INTRECV DID AN INTERRUPT OCCUR ? 

6142 070102 001001 BNE 70$ Z BRANCH IF YES 

6143 070104 000773 BR 360$ WAIT SOME MORE FOR INTERRUPT 

6144 070106 370$: PRINTF #T3BINT 1M ENTERRUPT RECEIVED’ 
070 106 012746 072736 MOV #T38INT,=(SP) 
070112 012746 000001 MOV #1,=(SP) 
070116 010600 MOV SP_R 
070120 104417 TRAP — CS$PNTF 
070122 062706 000004 ADD #4,SP 

6145 070126 016501 000002 MOV TSSR(RS),R1 :READ TSSR STATUS 

6146 070132 032701 000100 BIT #OFL,R1 : CHECK THE OFF-LINE BIT 

6147 070136 001011 BNE 380$ IF DRIVE IS OFFLINE 

6148 070140 PRINTF #T380NL eoRIvE IS NOW ON-LINE’ 
070140 012746 072766 MOV #T3B0NL ,-(SP) 
070144 012746 000001 MOV #1,-(SP) 
070150 010600 MOV SP,RO 
070152 104417 TRAP _ CSPNTF 
070154 062706 000004 ADD #4,SP 

6149 070160 000410 BR 3908 ZALMOST DONE 

6150 070162 380$: PRINTF #T3B0FL DRIVE 1S NOW OFF-LINE’ 
070162 012746 073022 MOV #T380FL,-(SP) 
070166 012746 000001 F MOV #1,-(SP) 
070172 010600 MOV SP_RO 
070174 104417 TRAP  CSPNTF 
070176 062706 000004 #4,SP 

6151 070202 005037 002224 390$: CLR NTRECV CLEAR INTERRUPT FLAG 

6152 070206 000137 067630 JMP 00$ N 

6153 070212 25$: | GMANIL 138MSG,T38DAT,-1,NO UAIT FOR OPERATOR TO MOUNT | TAPE 
070212 104443 c 
070214 04 10 
070216 073774 .WORD  T38DAT 

0220 120 “WORD TSCODE 

070222 073305 <WORD 138M 
070224 177777 ;WORD =1 
070226 10000$: 

6154 070226 BNCOMPLETE 25$ ZRETRY IF ERROR 
070226 103371 BCC 25$ 

6155 070230 005737 073774 TST T38DAT DID OPERATOR SAY *YES' ? 

6156 070234 001002 BNE 27$ SBRANCH IF YES 

6157 070236 000137 066702 JMP 2$ [RETURN TO MAIN MENU 

6158 07024 27$: 

6159 070242 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

6160 070246 103405 BCS 400$ [BR IF SOFT IT = OK 

6164 070250 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 

6165 070252 ERRDF ERRNO, SFIERR, SF IMSG SDEVICE FATAL ERROR DURING aut 
070252 104455 TRAP CSERDF 
070254 001763 .WORD 1011 
070256 003652 <WORD SFIERR 
070260 012034 <WORD SFIMSG 


60 
6166 070262 400$: CKLOOP sLOOP IF SELECTED 
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070262 

6167 070264 
6168 

6170 070302 
174 


6174 070304 
6175 070306 


070314 
6176 070316 
6177 070320 


6186 070 

6187 O70 336 

6188 070354 
6189 070360 
190 


6191 070366 
6192 070374 
6193 070400 


070462 
6213 070464 
6214 070466 


2 £393 28 
Sk SRF 


ooo0oo— 
So 
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071474 
000004 


002222 


002222 


071474 
004000 


066702 


072170 


072222 


6108: 


430$: 


435$: 


440$: 


450$: 


MOV 
ERRHRD 


CKLOOP 


BEQ 


Q 
ERRHRD 


CKLOOP 
JMP 


UNITN PN + na 
#TSBP K2,R 
C,WRTC in 
cits 1 
ERRNO, WRTMSG, SF IMSG 


T3BBER+6,R1 
#BiT2,R2 
R1,R2 


430$ 
ERRNO, T38WRL .EXPREC 


FATFLG 
FATFLG 
435$ 

2$ 

@FREE ,T38WR 


#T3BPK4 RG 
pee TSDB{RS) 


TSSR(RS) RI 
psc seki1T1 181T2.R2 
R1,R2 


440$ 
ERRNO, T38WRT,PKTSSR 


T38BFR+6,R1 
#B1T11,R2 
R1_RO 


450$ 
ERRNO, TS8WLE ,EXPREC 


2s 


SEQ 0271 
TRAP  CSCLP1 
:SET UNIT NUMBER 
: SUBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
IF COMMAND ISS 
SAVE CONTENTS OF TSSR 
SWRITE CHARACTERISTISC FAILED 
TRAP  CSERHRD 
.WORD 1012 
“WORD WRTMSG 
“WORD SFIMSG 
;LOOP IF SELECTED 
TRAP — C$CLP1 
:PICK UP XSTO CONTENTS 
iSET uP EXP 
:SET UP THE “unite LOCKED BIT 
TARE THEY ORRECT 
:BR. IF rors WELL (OK 
:* WRITE LOCKED BIT IS NOT set ETc." 
TRAP cs ERHRD 
«WORD 1013 
“WORD T38WRL 
“WORD EXPREC 
:SET FATAL FLAG 
SLOOP IF SELECTED 
TRAP _—C$CLP1 
ZWAS THE DRIVE NOT WRITE LOCKED 
‘BR, IF FLAG NOT SET 
SRE-WRITE MENU 
‘SET UP RITE pBUEFER ADDRESS 
[GET PACKET ADDRESS 
SSET THE PACKET ADDRESS 
[WAIT FOR SSR TO SET 
3GET TSSR 
[SET UP EXPECTED 
TARE THEY EQUAL (CORRECT) 
:BR. IF CORRECT STATUS 
:“TSSR INCORRECT AFTER WRITE COMMAND 
CSERHRD 
. 1014 
- T38WRT 
‘ PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TR CSCLP1 
ZREAD XSTO CONTENTS 
3SET UPR EXPECTED 
SET THE WRITE LOCK ERROR BIT (xSTO) 
:WAS THE IT SET 
IF IT (GOOD) 
:* WRITE tock eRROR BIT NOT SET’ 
TRAP  CSERHRD 
«WORD 1015 
“WORD TS8WLE 
-WORD EXPREC 
ZLOOP IF SELECTED 
TRAP  CS$CLP1 


:GO BACK TO MENU 


ef fe 


— 








an 
6217 


6218 
6219 070472 


070566 
38 070570 
6239 070570 
6240 070576 
6241 0 
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INTERVENTION 


072305 
000001 


000004 
073776 
015774 


oogeoe 


000000 


016336 


000340 


071434 
000100 


071434 
the 


00 

071436 
070730 
071440 


FARRAR ARAAARARERAAREEREEREEAARARARRARRRARRERRREERRRAERRERREERRAEREERREE 


SERVO EXERCISER NO LONGER USED 


 RERRRERRERERRRRRREREEERRRRERERRERRRRRRERERERRRRERERERERREREEEREREe 


"EXE ANY OTHER MENU omg *  peedag TO sane3, 


30$: 


072170 500$: 


071461 
071460 


550$: 


177560 


177560 


555$: 


PRINTB #T38MS3 


PC, T38REST 
PC, SOFINIT 
500$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


DS ta 
#TSBPK2,R4 


PC,WRTCH 
510$ 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


#0,7388S1 
#26,7388S0 

a SbPACKET RG 
R4, TSDB(RS) 


PC. CHKTSSR 
550$ 


RO,R1 
ERRNO, T38SSR,PKTSSR 


#PR107 

TTION2 

#100 ,a#TTICSR 

‘7 3 fa? 

#100, @ATTICSR 
TIV 1 


(R1), TPSAV2 


D0 SOFT IN a! OF 
;BR T INI 


2 SAV TS OF TSSR 
‘Device FATAL ERROR sere RAP 


3SET UNIT NUMBER 
ae att NEEDS PACKET ADDRESS 
SSUE WRITE ND TSU ERISTICS 


‘aR IF COMMAN 
SAVE CONTENTS 


F TSSR 
WRITE CHARACTERISTIC ese y 


CLEAR BIT 
WRT. 


:LOOP ON ERROR, IF FLAG SE 
;RAISE THE PRIORITY 


sASSUME INTERRUPTS ARE ENABLED 
RUPTS ON ? 


2 ARE mM pur ER 
BRANCH IF 


M4, 
sEXECUTE DRIVE TEST 2 
YP NEW SUBSYS MEM. COMMAND 
3SET 1% PACKET ADDRESS 
WA rote TO SET 
Y SET (GOOD RETURN) 


TEN TS Ss 
SDEVICE FATAL SSR ood + SET 


YES 
2FLAG A IF oe OF F 
ENAB RRUPTS 
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EST 10: MANUAL INTERVENTION SEQ 0273 
6261 070712 012711 000340 MOV #PRI07, (R1) SUSE PRIORITY SEVEN 
6262 070716 SETPRI #PRIOO SLOWER INTERRUPT BR LEVEL 
070716 012700 000000 MOV #PRI00,RO 
070722 104441 TRAP  C$SPRI 
6263 070724 000240 560$: NOP LOOP AWHILE 
6264 070726 000776 BR 560$ ‘STAY IN “TIGHT Loop 
hg 
6266 [PROCESS CONSOLE INTERRUPTS 
2 i 
6269 070730 010046 590$: MOV RO,=(SP) sSAVE WORK REGISTER 
6270 070732 113700 177562 MOVB aA TTIBFR,RO ZGET THE OPERATOR INPUT 
271 070736 042700 000200 BIC #200,R0 ‘STRIP OFF PARITY BIT 
6272 070742 122700 000015 CMPB Ss #15, RO :1S IT A CARRIAGE RETURN ? 
6273 070746 001075 BNE 591 SJUST EXIT IF NOT 
6274 070750 012766 066702 000002 MOV #28. (SP) RETURN TO MASTER MENU 
6275 070756 005066 000004 CLR FORCE gPRIORTY 0 
6276 070762 013737 071436 000060 MOV TySAv2, anTTIVEC “RESTORE "VECT 
6277 070770 013737 071440 000062 MOV TPSAV2. a#TTIVEC 42 RES TORE SUPER PRIORTY 
6278 070776 112737 000025 071460 MOVB 425.13 38BS0 [STOP DRIVE TEST 22 
071 112737 000000 071461 MOVB 8BS1 [CLEAR BS1 
071012 012704 071450 MOV erSaparcer, RG 3SET UP NEW WRT. SUBSYS MEM. COMMAND 
81 071016 010465 000000 MOV R4, TSDB(R5S [SET THE PACKET ADDRESS 
6282 071022 012737 176750 071442 MOV #65000. .TSBDLY [SET UP DELAY ¥ COUNTER 
6283 071030 004737 016250 592$: JSR PC,WAITE [D0 A WAIT FOR SSR 
6284 071034 016501 000002 MOV TSSR(RS) RI [CONTENTS OF TSSR REGISTER 
6285 071040 032701 000200 BIT #SSR,R1 :CHECK FOR TSSR SET 
6286 071044 001017 BNE 595$ [KEEP GOING IF NOT SET 
6287 071046 DELAY 250 SCALL DELAY ROUTINE 
071046 012727 000250 MOV #250, (PC)+ 
071052 . WORD 
071054 013727 002116 MOV LSDLY, (PC)+ 
071060 . WORD 
071062 005367 177772 DEC -6(PC) 
071066 001375 BNE 4 
071070 005367 177756 DEC =22(PC) 
071074 001367 BNE .-20 
6288 071076 005337 071442 DEC T38DLY ;BUMP COUNT ER 
6289 071102 001352 BNE 592$ F MORE Time LEFT 
071104 004737 016336 595$: JSR PC, CHKTSSR tWAIT FOR SSR TO SET 
6291 071110 103405 BCS 580$ [BR IF CARRY ret, (GOOD RETURN) 
2 071112 010001 MOV RO,R1 [SAVE CONTENTS OF TSS 
071114 ERRDF ERRNO, T38SSR,PKTSSR :DEVICE FATAL’ Sor FAILED TO SET 
71114 104455 TRAP CSERDF 
071116 001773 «WORD 1019 
071120 072646 “WORD T38SSR 
071122 012046 “WORD PKTSSR 
6297 071124 580$:  CKLOOP ZLOOP ON ERROR, IF FLAG SET 
071 104406 CSCLP1 
6298 071126 005737 071434 TST TTION2 TARE SUPER INTERRUPTS ENABLED 
6299 071 1403 BEQ 591$ BR, IF YES 
6300 071 042737 000100 177560 BIC #100, a#TTICSR RESTORE REGISTER 
6301 071142 012600 591$: MOV (SP)+,RO SRESTORE REGISTER 
6302 071144 000002 RTI RETURN 
6303 071146 35$: 
6304 071146 004737 073776 JSR PC, T38REST :SET PACKET TO INITIAL VALUES 
6305 091159 004737 015774 JSR PC. SOF INIT 7D0 SOFT INIT OF CONTROLLER 
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TEST 10: MANUAL INTERVENTION SEQ 0274 
6306 071156 103405 BCS 600$ :BR IF SOFT INIT = OK 
6310 071160 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 
6311 O7116¢ ERRDF ERRNO, SFIERR,SFIMSG SDEVICE FATAL ERROR DURING INIT 
071162 104455 CSERDF 
071164 001774 TOORD 1020 
071166 003652 “WORD SFIERR 
071170 012034 “WORD SFIMSG 
6312 071172 600$:  CKLOOP :LOOP IF SELECTED 
071172 104406 TRAP — CSCLP1 
6313 071174 012701 071466 MOV #T38BFR,R1 ZADDRESS OF MESSAGE BUFFER 
6314 071200 012702 125252 MOV #125252.R2 SALTERNATING 1 p 0's 
6316 071204 010221 601$: MOV R2,(R1)+ :CLEAR OUT THE ME SSAGE BUFFER 
6317 071206 022701 072142 CMP aT See, R1 ‘END OF BUFFER 
6318 071212 001401 BEQ 605 ‘BR. IF At END OF BUFFER 
6319 071214 000773 BR rt [NOT AT END KEEP GOING 
6320 071216 013737 002202 072170 605$: MOV UNITN, 138DSu [SET UNIT NUMBER 
6321 071224 012704 072150 MOV aT TS8PK Kar SSUBROUTINE NEEDS PACKET ADDRESS 
6322 071230 004737 010662 JSR PCWR Z1SSUE WRITE CHARACTERISTICS 
' 632 071254 103405 BCS Atte IF COMMAND Issue 
6327 071236 010001 MOV RO,R1 iSAVE CONTENTS OF TSSR 
6328 071240 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTI Sc FAILED 
071240 104456 CSERHRD 
071242 001775 TEORD 1021 
071244 005056 «WORD WRIMSG 
071246 012034 -WORD SFIMSG 
6329 071250 610$:  CKLOOP :LOOP IF SELECTED 
071250 104406 TRAP — CSCLP1 
330 071252 112737 000000 071461 move = #0 138881 ZCLEAR BIT #4 
6331 071260 112737 000024 971460 MOVB #24,738BS0 TREAD EXTENDED DRIVE Status 
332 071266 012704 071450 MOV sesbeacers. RG 7SET UP NEW WRT. SUBSYS MEM. COMMAND 
6333 071272 010465 000000 MOV R4,TSDB(RS) TSET THE PACKET ADDRESS 
334 071276 012737 000144 071442 MOV #100, « TS8DLY :SET up DELAY ROUTINE 
5 071304 004737 016250 620$: JSR PC ,WAITE [WAIT AWHILE FOR SSR TO SET 
336 071310 016501 000002 MOV TSSR(RS) RI SEE IF IT REALLY DID 
6337 071314 032701 000200 BIT #SSR,R1 :JUST CHECK T HAT BIT 
071320 001017 BNE 630$ SSR IS SET 
6339 071322 DELAY 250 SDELAY ABOUT .25 SEC 
071322 012727 000250 MOV #250, (PC)+ 
071326 000000 WORD 
071330 013727 002116 MOV LSOLY, (PC)+ 
071334 000000 . WORD 
071336 005367 177772 DEC -6(PC) 
071342 001375 BNE - 
071344 005367 177756 DEC -22(PC) 
071350 001367 720 
6340 071352 005337 071442 DEC T38DLY :START DELAY COUNT DOWN 
6341 071356 001352 BNE 620$ 7BR, IF COUNTER IS NOT AT DONE 
634¢ 071360 004737 016336 630$: JSR PC, CHKTSSR :WAIT FOR SSR TO SET 
6343 071364 103405 ” BCS 650$ 7BR IF CARRY SET (GOOD RETURN) 
6344 071366 010001: MOV RO,R1 TSAVE CONTENTS SR 
6348 071370 ERRDF ERRNO, T38SSR,PKTSSR [DEVICE FATAL SSR FAILED 10, SET 
071370 104455 TRAP CSERDF 
071372 001776 «WORD 1022 
071374 072646 -WORD T38SSR 
071376 012046 -WORD  PKTSSR 


6349 071400 CKLOOP 3LOOP ON ERROR, IF FLAG SET 
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TEST 10: MANUAL INTERVENTION SEQ 0275 
071 104406 TRAP  C$CLP1 
6350 OF cos 012700 071506 MOV #T38BFR+20,R0 sMESSAGE BUFFER ADDRESS 
6351 071406 005001 CLR R1 [NO HIGH ORDER ADDRESS BITS 
6352 071410 005037 003134 CLR KTENABLE :NO KT11 STUFF EITHER 
6353 071414 004737 074034 JSR PC, T38MBP :GO PRINT  RESSAGE BUFFER CONTENTS 
6394 071420 000137 066702 JMP 2$ :GO BACK TO MENU 
6356 
6357 071424 000137 000200 63$:  JMP 200 ZREALLY RETURN TO THE SUPERVISOR 
6358 071430 64$: EXIT TST SLEAVE TEST 
071430 104432 TRAP  CSEXIT 

ate 071432 003054 «WORD 110075-. | 
6360 3+ 
6361 SLOCAL TEXT MESSAGES FOR TEST 
6362 ge | 
6363 
6364 jLOCAL STORAGE FOR THIS TEST 
6365 :- 
6366 3+ | 
6367 SLOCAL STORAGE FOR THIS TEST 
att: ; | 
6370 071434 000000 TTION2: «WORD 0 sWORD SET IF SUPERVISOR TTI INTER OFF 
6371 071436 000000 TVSAV2: .WORD 0 ZSAVE TTI VECTOR 
6372 071440 000000 TPSAV2: .WORD 0 *SAVE TTI PRIORITY 
6374 071442 000000 T38DLY: .WORD 0 ZDELAY COUNTER FOR TEST 
6376 071450 .=<,+10>8177770 
6378 071450 T38PACKET: : COMMAND PACKET FOR TEST 
6379 071450 140006 .WORD 140006 [WRITE SUBSYSTEM MEM. CMD, ACK,CVC=1 
6380 071452 071460 ; T38TAD TADDRESS OF CHARACTERISTICS BLOCK 
6381 071454 000000 ;WORD 0 
6382 071456 000012 -WORD 10. TING VALUE OF BLOCK SIZE 
6383 071460 T38TAD: scuaractinistics DATA BLOCK 
6384 071460 000 T38BSO0: .BYTE 0 3BSELO BYTE 
6385 071461 000 138B8S1: .BYTE 0 :BSEL1 BYTE 

386 071462 000000 T38BS2: .WORD 0 7BSEL1 WORD 
6387 071464 000000 Fe DATA 

6388 071466 T38BFR: .BLKw 150. [MESSAGE BUFFER 
6389 072142 000000 T38EB: .WORD [END OF BUFFER ADDRESS 
6391 
6393 072150 .=<. 4108177770 
6395 072150 T38PK2: ZCOMMAND PACKET FOR TEST 
63% 072150 14 «WORD 140004 [WRITE CHARA. MEM, CMND., ACK,CVC=1 
6397 072152 072160 <WORD T38DTA TADDRESS OF SELECT DATA BLOCK 
63 072154 .WORD 0 
6599 072156 000012 -WORD 10. ;STARTING VALUE OF BLOCK SIZE 

01 
6402 072160 T38DTA: ZSELECT DATA BLOCK 
6403 072160 071466 .WORD T38BFR ZADDRESS OF MESSAGE BUFFER 
6404 072162 000000 WORD 
6405 072164 000400 .WORD 256, sLENGTH OF MESSAGE BUFFER 
6406 72166 000000 T38EAI: .WORD SEAL BIT 
6407 072170 000000 T38DSW: .WORD SDRIVE SELECT WORD ETC 
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10: MANUAL INTERVENTION SEQ 0276 
6409 072200 »=<.+10>8177770 
6411 072200 140212 T38PK3: .WORD 140212 Hed ae | BUFFER RELEASE COMMAND 
6412 072202 000000 -WORD 0 sNOT USED 
6413 072204 000000 «WORD 0 NOT USED 
6414 072206 000000 «WORD 0 NOT USED 
i? 072210 000000 -WO 0 NOT USED 
it sWRITE TAPE PACKET 
6420 072220 «=<. +10>8177770 
oss 072220 140005 T38PK4: .WORD 140005 sWRITE, ACK, CvC=1 C 
6423 072222 000000 T38WR: .WORD 0 SADDRESS OF WRITE BUFFER 
6424 072224 000000 WORD 0 ‘MORE ADDRESS OF WRITE BUFFER 
one? 072226 000400 T38SI1Z: WORD 256. sSIZE OF RECORD 
6427 
6428 
6429 
6430 3+ 
6431 ;LOCAL TEXT MESSAGES FOR TEST 
6432 ‘= 
6433 
6434 
6435 
$239 
6438 072230 123 164 141 T38NE: .ASCIZ ‘Stand-alone Manual Intervention Not Executed’ 
6439 072305 045 136 045 T38MS3: .ASCIZ SENZA Type <RETURN> To Stop Servo Exerciser, Return To Menu‘ 
6440 072400 124 12 123 T38WRT: .ASCIZ ‘TSSR Not Correct After WRITE, With WRITE PROTECT On’ 
6441 072464 127 122 111 T38WRL: .ASCIZ ‘WRITE LOCKED Bit Not Set In XSTO° 
6442 072525 127 122 111 T38WLE: .ASCIZ ‘WRITE LOCK ERROR Bit Not Set In yw 
6443 072572 127 122 111 38NBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not A 
6444 072 103 157 1% T38SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE. otee STEN MEMORY" 
6445 072736 045 116 045 T38INT: .ASCIZ ‘ZNZA Interrupt Received’ 
6446 072766 045 116 045 TS38ONL: .ASCIZ ‘ZNZA Drive Is Now ON~LINE* 
6447 073022 045 116 045 T380FL: .ASCIZ ‘2ZNZA Drive Is Now OFF-LINE’ 
6448 073056 103 157 156 T38SST: .ASCIZ ‘Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE’ 
6449 073146 045 116 045 IT38MS1: .ASCIZ ‘ZNZAToggle ON-LINE Switch to Generate ATTENTION Interrupts’ 
6450 073241 045 178 045 T38MS2: .ASCIZ ‘ZNZAType RETURN To Return To Menu%N’ 
6451 073 111 16 040 T38MSG: .ASCIZ ‘Is Write-Protected Tape Mounted’ 
$436 073345 115 141 156 T38ID: riety *Manual Intervention’ 
6454 073372 073416 073470 073516 MIMENU: .WORD 1$,2$,3$,4$.5$.6$ 
6455 073406 073665 073730 073773 -WORD 8$,9$.108,0 
6457 073416 012 123 105 1$: eASCIZ Hi SELECT OPERATION FROM FOLLOWING OPTIONS: ‘ 
6458 073470 012 011 060 2$: eASCIZ <12>° 0 Display This Menu’ 
6459 073516 011 061 011 3$: eASCIZ 1 Turn On ALL M7196 LED**s* 
6460 073550 011 b6¢ 011 4$: eASCIZ ° ; Turn Off ALL M7196 LED''s'* 
6461 073603 011 06 011 5$: eASCIZ ° Of fline/Online Attention* 
6462 073637 011 064 011 6$: eASCIZ ° 4 Write Protect Test’ 
6463 073665 011 065 011 8$: emnrlzZ * 5 Print Extended Transport Status’ 
6464 073730 011 066 011 +9$: ASCIZ ° 6 Return to Diagnostic Supervisor’ 
6465 073773 000 10$: eASCIZ °° 
6466 EVEN 
6467 


6468 3¢ 
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10: MANUAL INTERVENTION SEQ 0277 

6469 ZLOCAL STORAGE FOR THIS TEST 

geht ai 

6472 073774 000000 T38DAT: .WORD 0 ZLOGICAL RESPONSE TO QUESTION 

6473 073776 T38REST: 

6474 073776 SAVREG ZSAVE THE REGISTERS 

6475 074002 012701 071450 MOV #TSBPACKET RI ‘START OF THE PACKET 

6476 074 012721 140206 MOV #140206, (Ri)+ [WRITE SUBSYSTEM MEM. WITH ACK,CVC=1 

6477 074012 012721 071460 MOV AT38TAD,(R1)4+ SADDRESS OF DATA BLOCK 

6478 074016 905021 CLR (R1)+ ZEXTENDED ADDRESS 

6479 074020 012721 000006 MOV #6.,(R1)¢ SSIZE OF DATA BLOCK IN BYTES 

6480 074024 005021 CLR (Rid+ [CLEAR BSELO AND BSEL1 

6481 074026 005021 CLR (R1)+ :CLEAR SEL 

6482 074030 005011 CLR (R1) [CLEAR DATA AREA 

6483 074032 000207 RTS PC RETURN 

6484 

6485 

6486 * 

6487 

6488 [THIS ROUTINE PRINTS THE CONTENTS 0 

6489 : THE 256 BYTE MESSAGE BUFFER RETURNED BY THE 

6490 :TSV-05. 

6491 3 

6492 : INPUT: 

6494 3 RC LOW ORDER ADDRESS OF MESSAGE BUFFER 

6495 : R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 

6496 ; NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 

6498 : 

6499 :- 

500 

6501 074034 T38MBP: » 

6502 074034 SAVREG ZSAVE THE REGISTERS 

6503 074040 010005 MOV RO,RS TSAVE LOW ORDER ADDRESS 
074042 005737 003134 TST KTENABLE ZADDRESS_ ABO E 28k? 

6505 074046 001001 BNE 910$ [BR IF YES 

506 074050 005001 CLR R1 SET HIGH ORDER ADDRESS TO 0 

6507 074052 010103 910$: MOV R1,R3 TSAVE HIGH ORDER ADDRESS 

6508 074054 006100 ROL RO ZSHIFT BIT1S TO C BIT 

6509 074056 006101 ROL R1 ZSHIFT TO HIGH ORDER PRINTOUT 

6510 074060 PRINTX #T38ASO,R1,R5 :PRINT MESSAGE BUFFER’ ADDRESS 
074060 010546 MOV RS,=(SP) 
074062 010146 MOV R1.=(SP) 
074064 012746 074336 MOV #T$8AS0,-(SP) 
074070 012746 000003 MOV #3,-(SP) 
074074 010600 MOV SP.RO 
074076 104415 TRAP  CSPNTX 
074100 062706 000010 ADD #10,SP 

6511 074104 PRINTX #T38AS1 sPRINT HEADER FOR CONTENTS 
074104 0127646 074403 MOV #T38AS1,-(SP) 
074110 012746 000001 MOV #1,-(SP) 
074114 01 MOV x 
074116 yeets TRAP  CSPNTX 
074120 062706 000004 ADD #4,SP 

6512 074124 010501 MOV R5,R1 7COPY LOW ORDER ADDRESS 

6513 074126 010300 MOV R3,RO [COPY HIGH ORDER ADDRESS 
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6538 074254 
074254 


TESTS 








6 


MACRO M1113 25=MAY-82 09:19 PAGE 122- 14" 
INTERVENTION 


017316 
074504 
125252 


170377 


177760 


072142 


074504 
000001 


074460 
000003 


000010 
074504 


074441 
000003 


912$: 
915$: 


920$: 


PRINTX 


CLR 
BR 
PRINTX 





SEQ 0278 


913$ :8R IF NOT ABOVE 28k 
PC,SETMAP : SETUP PAR ADDRESS IN RO 
4 7GET PAR FORMAT ADDRESS ABOVE 28k 
R5.T38CNT ‘HOLD ADDRES 
(R5) RG :GET BUFFER ENT 
#125252,R4 3CHECK FOR NO LOAD CONDITION 
912$ BR, IF BUFFER WASN'T LOADED 
RGR MAKE 
#170377,R4 ZONLY BITS. 1 11,10,9 AND 8 ARE SAVED 
RG :11 TO 10 BIT POSITION 
RG 210 TO.9 BIT POS 
RG :9 TO 8 BIT POSI 
RG :8 TO 7 BIT POSITION 
#177760,R3 ZONLY BITS 3,2,1 AND 0 ARE SAVED 
4,R3 "OREM TOGETHER 
R3,(R5S)+ sPUT BACK IN BUFFER 
R5.AT38EB TEND OF BUFFER YET 
is :BR, IF NOT AT END YET 
T38CNT,RS [PUT ADDRESS BACK 
#1,R4 SSTART BYTE NUMBER AT ONE 
#TSBASN,R4, (RS) + PRT MEM BUFFER W/NEWLINE 
MOV (RS)+,=(SP) 
MOV R4,-(SP) 
MOV #TS8ASN, -(SP) 
MOV #3,-(SP) 
MOV P’R 
TRAP  CSPNTX 
ADD #10,SP 
T38CNT ZCLEAR COUNTER 
21$ :SKIP OTHER PRINT 
#T3BASC,R4, (RS)+ [PRINT THE CONTENTS OF MEMORY BUFFER 
HOV (R5)+, (SP) 
MOV aTSBASC_~(SP) 
MOV #3,-(SP) 
MOV SP. 
TRAP  CSPNTX 
ADD #10,SP 
T38CNT :BUMP COUNTER 
ZNUMBER OF THE NEXT 
R4,4128, 3DONE ALL YET ? 
:BRANCH IF ALL 
T3BCNT #4 :DONE FOUR YET 
925$ SBR, IF THREE DONE 
9208 :KEEP GOING 
T38CNT 3CLEAR COUNTER 
915$ SPRINT WITH NEW LINE 
RETURN 


*ZNZA Message Buffer Address = , 301205" 
oeAtA Message ffer Contents:' 
*ENZA ByteZD4ZA: 203° 


COUNTER FOR PRINT 
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074506 L10075: 
074506 104401 TRAP CSETST 
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TEST 11: CONFIGURATION TYPEOUT SEQ 0280 
6558 .SBTTL TEST 11: CONFIGURATION TYPEOUT 
6560 :THIS 1S A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
6561 sTHE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
636 [THE FOLLOWING INFORMATION IS PRESENTED: 
6564 ; 
6565 ; 1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
6966 : FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED) 
6568 7 2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
6969 : (BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 
6371 ; 3.0 MICROCODE REVSION LEVEL OF THE M7196, 
$ot7 3 4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER. 
6575 : 5.0 UNIT SELECT CODE AND STATE CONL INE/OFFLINE WRITE ENABLED/PROTECTED) 
6576 ; F EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
6577 : POR PACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
6378 ; EXTENDED TAPE STATUS READOUT FEATURE. 
6580 3 
6581 [THE OPERATOR IS EXPECTED To READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
6582 : THE ACTUAL CONFIGURATION AT HAND. FOR EXAMPLE, THE PROGRAM INDICATES 
6583 TTHAT IT "'SEES'’ TwO TRANSPORT S CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
6584 : THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE 
6585 = CAUS E, FAULTY UNIT=SELECT DECODING IN THE TRANSPORT, ETC.). 
6586 <FSTNEE. one CONTROLLER CAN ONLY ACCESS UNIT O IF IT IS IN ‘STANDARD’ 
6587 ZMODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 
6588 WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. 
6590 : 
6591 ZTHIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
6592 DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS {CONTROLLERS) ARE 
6593 sSELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
6594 ;REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 
6596 074510 BGNTST 
074510 T11:: 
6601 074510 RFLAGS RO :GET OPERATOR FLAGS 
074510 104421 TRAP  C$RFLA 
6602 074512 001403 BEQ 10$ :BR, IF OK TO RUN 
6603 074514 012700 076503 MOV #TSONE. RO TEST NOT EXECUTED" 
07450 000402 BR 118 [JUMP OUT OF TEST IF NOT 
6605 074522 012700 077632 10$: MOV #TST3910 RO [TEST 1D MESSAGE 
074506 004737 016510 11$: JSR PC, TSTSETUP [D0 THE COMMON SETUP 
6607 074532 004737 020500 JSR 31S MANUAL INTERVENTION ALLOWED? 
074536 105402 BCS 20$ :BR, IF MANUAL INTERVENTION ALLOWED 
6609 074540 000137 075720 JMP 64$ [JUMP TO OUT IF NOT 
6610 074544 20S: 
6611 074544 004737 015774 JSR PC, SOFINIT :D0 SOFT INIT OF CONTROLLER 
6612 074550 103405 BCS 25$ IF SOFT INIT = Ok 
6616 074552 010001 ‘ MOV RO,R1 ?SAVE CONTENTS OF TSSR 
6617 074554 ERRDF ERRNO, SFIERR, SF IMSG [DEVICE FATAL ERROR DURING INIT 
074554 104455 TRAP = CSERDF 
074556 002115 «WORD 1101 
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TEST 11: CONFIGURATION TYPEQUT SEQ 0281 | 
074560 003652 «WORD SFIERR 
074562 012034 .WORD  SFIMSG 

6618 074564 25$:  CKLOOP sLOOP IF SELECTED 
0745 104406 TRAP C$CLP1 
6619 074566 013737 002202 076450 MOV UNITN. -1390Su :SET UNIT NUMBER 
0 074574 012704 076430 MOV #T39PK2,R SSUBROUTINE NEEDS PACKET ADDRESS 
1 074 004737 010662 JSR PC URTCR ZISSUE WRITE CHARACTERISTICS 
2 074604 103405 BCs 50$ If ¢ ISSUED 
6626 074606 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
6627 074610 ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
074610 104456 CSERHRD 
074612 002116 TeoRD 1102 
074614 005056 “WORD WRTMSG 
74616 012034 -WORD SFIMSG 
6628 O7c626 50$:  CKLOOP :LOOP IF SELECTED 
074620 104406 TRAP _— CSCLP1 
6629 074622 013701 075760 MOV T39BFR+12,R1 :GET XST2 STATUS FROM MESSAGE BUFFER 
6630 074626 PRINTX #T39SFS z'"STATE OF EXTENDED FEATURES SW =" 
074626 012746 077351 MOV #T39SFS,-(SP) 
074632 012746 000001 MOV #1,-(SP) 
074636 010600 MOV SP,RO 
074640 104415 TRAP  C$PNTX 
074642 062706 000004 D #4,SP 
1 074646 032701 000200 BIT #B1T7,R1 :CHECK STATE OF E.F.S. 
6632 074652 001011 BNE 1 :BR, IF EXT. FEA. SW. IS ON 
6633 074654 PRINTX #T390FF 3'* OFF’ 
074654 012746 077475 MOV #T390FF ,-(SP) 
074660 012746 000001 MOV #1,=(SP) 
074664 010600 MOV SP,RO 
074 104415 TRAP CS$PNTX 
074670 062706 000004 ADD #4,SP 
6634 074674 000410 BR 110$ :SKIP OTHER PRINT STATEMENT 
6635 074676 100$: PRINTX #T390N "ON" 
074676 012746 077504 MOV #T390N,-(SP) 
074702 012746 MOV #1,=(SP) 
074706 0106 MOV SP,RO 
074710 104415 TRAP —- CSPNTX ' 
074712 062706 000004 ADD #4,SP 
6636 074716 110$: PRINTX ¥#T39SBS “STATE OF BUFFERING SWITCH =" 
074716 012746 077423 MOV #T39SBS,-(SP) 
074722 012746 000001 MOV #1,-(SP) 
074726 010600 MOV RO 
764730 104415 TRAP CS$PNTX 
074732 062706 000004 ADD #4,SP 
6637 074736 032701 000100 BIT #B1T6,R1 ZCHECK STATE OF BUFFERING SW 
6638 074742 001011 BNE [BR, IF BUFFERING IS ON 
6639 074744 PRINTX #T390FF :"* OFF’ 
074744 012746 077475 MOV #T390FF ,-(SP) 
074750 012746 000001 MOV #1,-(SP5 
074754 010600 MOV 8 
074756 104415 TRAP  CSPNTX 
074760 962706 000004 ADD #4,SP 
6640 074764 00041 BR 130$ SKIP OTHER PRINT STATEMENT 
CO4T rites 012766 077506 oe FE ee ce - MOV —s#T390N. =< SP) 
074772 Oi5ece 000001 MOV #1,-(SP) 
074776 010600 MOV : 




















6650 


6677 
6678 


6679 
6680 
6681 
eas 
6684 


CONFIGURATION TYPEOUT 
075000 104415 TRAP — C$PNTX 
075002 0627 000004 ADD #4,SP 
75006 042701 177700 130$: BIC #177700, R1 ONLY LEAVE MICROCODE REV LEVEL 
075012 010137 077570 MOV T3ORL OAD UP . 
075016 PRINTX arsomece T3ORL ‘HMI CROCODE REVISION LEVEL =000xxx 
75016 013746 077570 MOV TSORL,=(SP) 
075022 012746 077513 MOV #T39MCL,=(SP) 
075026 012746 000002 MOV #2,-(SP 
075032 010600 MOV SP,RO 
075034 104415 TRAP CSPNTX 
75036 062706 000006 #6,SP 
075042 004737 015774 JSR PC, SOFINIT :D0 SOFT INIT OF CONTROLLER 
075046 103405 BCS 146$ 'BR IF SOFT INIT = Ok 
075050 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
075052 ERRDF ERRNO, SFIERR, SF IMSG SDEVICE FATAL ERROR DURING 1 INIT 
75052 104455 CSERDF 
075054 002117 TeORD 1103 
075056 003652 -WORD SFIERR 
75060 012034 <WORD  SFIMSG 
075062 140$:  CKLOOP :LOOP IF SELECTED 
75062 ~104406 TRAP C$CLP1 
5064 013737 002202 076450 MOV riSgbea se , 1390S :SET UNIT NUMBER 
075072 012704 076430 MOV :SUBROUTINE NEEDS PACKET ADDRESS 
075076 737 010662 JSR i ISSUE WRITE CHARACTERISTICS 
075102 103405 BCS isos" F COMMAND ISSUE 
075104 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
075106 ERRHRD ERRNO,WRTMSG, SF IMSG ZWRITE CHARACTERISTISC FAILED 
075106 104456 TRAP § CSERHRD 
075110 002120 TUORD 1104 
075112 005056 -WORD WRTMSG 
075114 012034 -WORD SFIMSG 
075116 150$:  CKLOOP :LOOP IF SELECTED 
075116 104406 TRAP C$CLP1 
075120 005737 002226 TST EXTFEA : CHECK FOR EXTENDED FEATURES SW SWITCH 
075124 001036 BNE 174$ BR IF SWITCH IS ON 
075126 112737 000200 075741 MOVB #200 139BS1 WRITE MISCELLANEOUS CONT /READ STATUS 
075134 112737 000010 075740 MOVB #10, T39BS0 SFUNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 
075142 012704 075730 MOV STSOPACKET RG [WRITE SUBSYS MEM PACKET 
075146 010465 000000 MOV R4,TSDB(RS) : COMMAND 
075152 004737 016336 JSR PC. CHKTSSR ‘WAIT FOR SSR 
075156 103405 BCS 166$ 7BR, IF NO RROR 
075160 010001 V RO,R1 SERROR, SAVE TSSR 
075162 ERRHRD ERRNO, T39NBA,PKTSSR STSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
75162 106456 TRAP — CSERHRD 
075164 002121 : 
075166 077205 -WORD TSONBA 
75170 012046 .WORD PKTSSR 
075172 160$:  CKLOOP ZLOOP IF SELECTED 
75172 104406 RAP _— CSCLP1 
075174 012704 076430 #T39PK2,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
jatnenneneeeneenenaeereeteenenenanennnentanaennennnenseneeeneenenns 
tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
Seeeeetenereereeereneeeeeereneeeneeeeeerenereneeereeneeeseeesesenes 
075200 004737 010662 JSR PC,WRICHR TISSUE WRITE CHARACTERISTICS 
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SEQ 0283 


TEST 11: CONFIGURATION TYPEOUT 
6685 075204 103405 BCS 170$ IF oGOUMAND ISSUED OK 
6689 075206 010001 MOY RO,R1 eave NTS OF TSSR 
6690 075210 ERRHRD ERRNO,WRTMSG, SF IMSG ORITES CHARACTERIST Esc FAILED 
075210 10445 CSERHRD 
075212 00212 TeORD 1106 
075214 005056 “WORD WRTMSG 
075216 012034 .WORD SFIMSG 
6691 075220 170$:  CKLOOP :SCOPE LOOP 
75220 104406 TRAP  C$CLP1 
6692 075222 005037 002202 174$: CLR UNITN :SET TO DRIVE 0 
6693 075226 013737 002202 076450 175$: MOV UNITN, T39DSW :SET UNIT NUMBER 
6694 07 012704 076430 MOV #T39PK2,R4 [SUBROUTINE NEEDS PACKET ADDRESS 
6695 075240 004737 010662 JSR PC WRTCHR ZI1SSUE WRITE CHARACTERISTICS 
6696 075244 103405 BCS 180$ -BR, IF COMMAND ISSUED Ok 
6700 075246 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 
6701 075250 ERRHRD ERRNO,WRTMSG, SF IMSG :WRITE CHARACTERISTISC FAILED 
075250 10445 CSERHRD 
075252 00212 TeoRD 1107 
075254 005056 “WORD WRTMSG 
75256 012034 “WORD SFIMSG 
6702 078360 180$:  CKLOOP ;LOOP IF SELECTED 
075260 104406 TRAP — C$CLP1 
6704 075262 016501 000002 190$: MOV TSSR(RS),R1 :GET TSSR STATUS 
6705 075266 032701 000100 BIT #OFL,R1 CH ECK FOR OFF-LINE 
6706 075272 001414 BEQ 200$ IF DRIVE IS ON-LINE 
6707 075274 PRINTX #T390F2,UNITN PRR RIVE NUMBER XX IS OFF-LINE’ 
075274 013746 002202 MOV UNITN, =(SP) 
012746 076744 MOV #159082 .=(SP) 
012746 000002 MOV #2,-(SP) 
075310 010600 MOV SP.RO 
075312 104415 TRAP CSPNTX 
075314 062706 000006 ADD #6,SP 
6708 075320 000137 075654 JMP 250$ 3D0 NOT TRY TO GET ANYMORE INFO. 
6709 075324 200$:  PRINTX #T390N2,UNITN "DRIVE NUMBER XX IS ON=LINE"’ 
075324 013746 002202 MOV UNITN,=(SP) 
5330 012746 077010 MOV #T39ON2, =(SP) 
075334 012746 000002 MOV #2,-(SP) 
075340 01 MOV SP.RO 
075342 104415 TRAP CSPNTX 
075344 062706 000006 #6.SP 
6710 075350 013701 075754 MOV T39BFR+6,R1 ZREAD EXTENDED STATUS oxst0) 
6711 075354 032701 000004 BIT #B1T2,R1 t1$ DRIVE WIITE PROTECTE 
6712 075360 001013 BNE 210$ ‘BR, IF WRITE PROTECTED” 
6713 075362 PRINTX #T39WPN,UNITN :"DRIVE NUMBER IS NOT WRT PRO" 
075 013746 002202 MOV UNI TN (SP) 
075366 012746 077126 MOV QWPN, =(SP) 
075372 012746 000002 MOV #2.° (SPJ 
075376 010600 MOV 
075400 104415 TRAP SSPNTX 
075402 062706 000006 ADD #6,SP 
6714 075406 000412 BR 2208 :SKIP OVER 
6715 075410 2108: PRINTX #T39WRT,UNITN DRIVE NUMBER XX IS WRT PRO" 
075410 013746 00220 MOV UNITN,=(SP) 
075414 012746 07705 MOV #T39WRT, (SP) 
075420 012746 2 MOV #2,-(SP5 
075424 010600 MOV SP, 
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: CONFIGURATION 


075566 
6736 075570 

075570 
6737 075572 
6738 


075600 001013 
6739 075602 
075602 


075622 
6740 075626 
6741 075630 
075630 
075634 
075640 012746 
075644 01 


075650 
ort8 075654 
6743 075660 
6744 075666 
6745 075670 
6746 075674 

075674 


N 
MACRO M1113 25-MAY=-82 09:19 PAGE 123-4 
TYPEOUT 


0000 

125252 076046 
000000 075741 
poenge 075740 
075730 

000000 

000144 075724 
016250 

000002 

000200 

000250 

002116 

177772 

177756 

075724 

016336 


076046 125252 


002202 
076651 
000002 


000006 


002202 
Ore 8s 
00000 


000006 
00220 
00220. 


075226 
076500 
000001 


000003 


2208: 


2228: 


2258: 


230$: 


2408: 


250$: 


63$: 





MOV 
M 


MOV 
ERRHRD 


CKLOOP 
CMP 
BNE 
PRINTX 


BR 
PRINTX 


PRINTX 





6 


#0, 13968 . T39BFR+100 


AE 
ee teeaccey RG 
R4,TSDB(RS) 
#100. -TS90LY 
TSSR(R5) RI 
#SSR,R1 


2 
250 


T39DLY 
$ 


PC, CHKTSSR 
230$ 


RO,R1 
ERRNO, T39NBA,PKTSSR 


L7per Rel00 w12ses2 
#T39ETN,UNITN 


250$ . 
#T39ETS ,UNITN 


UNI TN 
UNITN,#3 
63$ 


175$ 
#TSONFL 


TRAP 
ADD 
:SET_ 1 LOC TO KNOWN VALUE 
sEXTENDED TAPE STATUS 
sEXTENDED TAPE STATUS 
WRITE SUBSYS MEM PACKET 


TISSUE COMMAN 
3SET UP DELAY ROUTINE 
SDELAY ABOUT .25 SEC 


s START DELAY COUNT DOWN 
4 COUNTER IS NOT AT DONE 
WAIT F SR 


BR, IF NO ERROR 
ERROR, SA 


VE TSSR 
zTSSR NOT CORRECT AFTER WRT. ay: > ye 
TRAP CSERH 


SEQ 0284 
CSPNTX 


#250, (PC)+ 
PsoLy, (PcDs 

O6cPC) 

=22(PC) 


"word 1108" | 
“WORD  T39NBA | 
WORD  PKTSSR | 
;LOOP IF SELECTED 
TRAP — CSCLP1 
{DID LOC GET OVER WRITTEN 
iBR. IF IT DIDN'T GET ETC. | 
:DRIVE DOESN'T HAVE EXT TAPE STATUS | 
MOV —s— UNITTN, =(SP) 
MOV =: #T39E TN, =( SP) 
MOV =: #2, = (SP5 
MOV SP,RO 
TRAP — CSPNTX 
ADD =: #6, SP 
SKIP OVER 
:"DRIVE HAS EXT TAPE STATUS" 
MOV —sUNITN, =( SP) 
MOV aTS9Ets. =(SP) 
MOV =: #2, = (SP5 
MOV SP.RO 
TRAP —- CSPNTX 
ADD #6, SP 
;BUMP DRIVE NUMBER 
TAT END OF DRIVES YET 
BR, IF NO MORE DRIVES 
:D0°NEXT DRIVE 
MOV =: #T39NFL,=(SP) 
MOV —s« #1, = (SPS 
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TEST 11: CONFIGURATION TYPEOUT SEQ 0285 
075704 010600 MOV SP,RO 
075706 104415 TRAP CSPNTX 
075710 062706 000004 ADD #4,SP 

6747 075714 000137 000200 JMP 200 :RETURN TO SUPERVISOR 
6748 075720 64$: EXIT TST TEXIT THIS SECTION 
075720 104432 TRAP — CSEXIT 
ional 075722 001736 «WORD 110076-. 
39 
6750 SLOCAL TEXT MESSAGES FOR TEST 
675 ; 
675 :LOCAL STORAGE FOR THIS TEST 
os Pe 
6756 075724 000000 T39DLY: .WORD. 0 ;DELAY COUNTER FOR TEST 
6758 075730 <.+10>8177770 
6760 075730 T39PACKET: : COMMAND PACKET FOR TEST 
6761 075730 140006 WORD 140006 SWRITE SUBSYSTEM MEM. CMD, ACK,CVC=1 
6762 075732 075740 » WORD T39TAD * ADDRESS OF CHARACTERISTICS BLOCK 
6763 075734 000000 “WORD 0 
6764 075736 000012 WO 10. ZSTARTING VALUE OF BLOCK SIZE 
6765 075740 T39TAD: CHARACTERISTICS DATA BLOCK 
6766 075740 000 T398S0: .BYTE 0 ;BSELO BYTE 
6767 075741 000 1398S1: :BYTE 0 :BSEL1 BYTE 
6768 075742 000000 T39BS2: WORD 0 :BSELI WORD 
6769 075744 000000 “wORD 0 2D 
6770 075746 T39BFR: .BLKW 150. MESSAGE BUFFER 
6772 
677 076430 =<, +1098177770 
ore 076430 T39PK2: COMMAND PACKET FOR Test 
6777 076430 140004 .WORD 140004 [WRITE CHARA. MEM. CMND., ACK,CVC=1 
6778 076432 076440 “WORD T39DTA TADDRESS OF AseLecT DAi a BLOCK 
6779 076434 000000 “WORD 0 
ore 076436 000012 ~ WORD 10. sSTARTING VALUE OF BLOCK SIZE 
6782 
6783 076440 T39DTA: :SELECT DATA BLOCK 
6784 076440 075746 .WORD T39BFR TADDRESS OF MESSAGE BUFFER 
6785 076442 000000 “WORD 0 
6786 076444 000400 “WORD 256. LENGTH OF MESSAGE BUFFER 
6787 076446 000000 T39EAI: WORD 0 ZEAL 
6788 076450 000000 T39DSW: .WORD 0 DRIVE seLecr WORD ETC 
6790 076460 * =<, #1028177770 
6792 076460 140012 T39PK3: :WORD 140012 ZMESSAGE BUFFER RELEASE COMMAND 
6793 076462 000000 “WORD 0 SNOT USED 
or? sWRITE TAPE PACKET 
6798 076470 =<, +10>6177770 
6800 076470 140005 139PK4 “WORD 140005 :WRITE, ACK, CVC=1 COMMAND 
6801 076472 000000 T39WR: TADDRESS OF WRITE BUFFER 
6802 076474 000000 “WORD [MORE ADDRESS OF WRITE BUFFER 
6803 076476 000400 T39S1Z: .WORD 256. [SIZE OF RECORD 


6805 
6806 








C 
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6807 
6808 3+ 
oat sLOCAL TEXT MESSAGES FOR TEST 
6811 
eels 
681 
6814 
6815 076500 045 116 000 T39ONFL: .ASCIZ ‘N° 
6816 076503 123 164 141 T39NE: .ASCIZ ‘Stand-alone Configuration Typeout Not Executed’ 
6817 076562 045 116 045 TS9ETS: .ASCIZ ‘XNZA Extended Tape Status Availiable, Drive Number %D2° 
6818 076651 045 116 045 TS9ETN: .ASCIZ ‘ZNZA Extended Tape Status NOT Availiable, Drive Number %D2° 
6819 076744 045 116 045 T390F2: .ASCIZ ‘ZNZA Drive Number %D2%A Is Off-Line’ 
6820 077010 045 116 045 T39ON2: .ASCIZ ‘ZN%A Drive Number %D2%A Is On-Line’ 
6821 077053 045 116 045 T39WRT: .ASCIZ ‘ZNZA Drive Number %D2%A Is Write Protected’ 
6822 077126 045 116 045 TS9WPN: .ASCIZ ‘2NZA Drive Number 2D2%A Is NOT Write Protected’ 
6823 077205 127 122 111 T39NBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
oases 077261 103 157 156 TS9SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY’ 
6826 077351 045 116 045 T39SFS: .ASCIZ ‘%NZA State Of Extended Features Switch =" 
6827 077423 045 116 045 T39SBS: .ASCIZ ‘ZNZA State Of Buffering Switch id 
6828 077475 045 101 040 TS39OFF: .ASCIZ ‘ZA OFF* 
6829 077504 045 101 040 T39ON: .ASCIZ ‘ZA ON ° 
rts 077513 045 116 045 T39MCL: ye *ZNZA M7196 Microcode Revision Level =%02° 
6832 077570 000000 T39RL: .WORD 0 
6833 EVEN 
6834 EVEN 
6835 
6836 3+ 
6837 sLOCAL STORAGE FOR THIS TEST 
ss s 
6840 077572 000000 T39DAT: .WORD 0 sLOGICAL RESPONSE TO QUESTION 
6841 077574 T39REST: 
1744 077574 SAVREG sSAVE THE REGISTERS 
6843 077600 012701 075730 Vv #T39PACKET,R1 sSTART OF THE PACKET 
6844 077604 012721 140006 MOV #140006, (Ri)+ sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1 
6845 077610 012721 075740 MOV #T39TAD, (R1)+ sADDRESS OF DATA BLOCK 
6846 077614 005021 CLR (R1)+ sEXTENDED ADDRESS 
6847 077616 012721 000006 MOV #6.,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
6848 077622 005021 CLR (R1)+ :CLEAR BSELO AND BSEL1 
6849 077624 005021 CLR (R1)+ sCLEAR SEL 
6850 077626 005011 CLR (R1) sCLEAR DATA AREA 
6851 0776 000207 RTS PC RETURN 
6852 
6853 3+ 
6854 ;LOCAL TEXT MESSAGES FOR TEST 
es ‘ 
ore 077632 103 157 156 TST39ID: ; eASCIZ ‘Configuration Typeout’ 
6859 077660 ENDTST 
77660 L10076: 


0 
077660 104401 TRAP CSETST 
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TEST 12: SCOPE LOOPS 


oo= 
=83 
bt at 
33u 


: 


—_ o= = So 
Ne Seeeeees 


7 
7 
; 
7 
5 
1 
5 
1 


s 





-SBTTL TEST 12: SCOPE LOOPS 


ION SET INT 
aaamee” SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 


CODE SCOPE LOOP 


HELP. PRINT THIS MENU. 

TSBA READ ACCESS 

TSSR READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 
TSDB HIGH WRITE ACCESS 


CESS 
TSDB wien ten ores WORD WRITE ACCESS 
ih TSSR HIGH BYTE) WRITE ACCESS 
(EXTENDED tietlen'e bow Uh MUST BE ON 
TO USE SELECTION CODE 7) 
EXIT (RETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT oy a yy mitten THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LooP BACK TO MENU LEVEL. 


BGNTST wae 
RFLAGS RO :GET OPERATOR FLAGS 
TRAP CSRFLA 
BEQ 1$ Ok TO RUN 
MOV #TGONE RO Pest NOT EXECUTED" 
BR 100$ [JUST EXIT IF NO 
MOV #TST4OID RO STEST 1D MESSAGE. 
JSR TSTSETUP 7D0 THE COMMON SETUP 
JSR Pe CHKAAN TSEE If MANUAL INTERVENTION ALLOWED 
BCS 2$ ZCARRY SET IF INTERVENTION ALLOWED 
JMP 648 ZEXIT IF NO MANUAL INTERVENTION 
JSR PC, SOF INIT 700 A SOFT INIT 
BCS 5$ [BRANCH IF OK 
MOV RO.R1 [CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SFIMSG SREPORT FATAL ERROR 


TRAP CSERDF 
WORD 1201 
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6929 077764 
6930 077770 
31 077772 
077772 
077776 
100002 
100004 
100006 
6932 100012 
6933 100016 
6934 100020 
100020 
100024 
6935 100026 
6936 100032 
6937 100040 
6938 100042 
6939 100046 
6940 100054 
6941 100060 
6942 100064 
6943 100070 
6944 100074 
6945 100100 
100100 
100104 
6946 100106 
6947 100110 
6948 100114 
6949 100116 
6950 100120 
6951 100122 
6952 100124 
6953 100126 
6954 100130 
6955 100132 
6956 100134 
6957 
6958 
6959 HA 
6960 10014 
one) 100144 
6963 
6964 10014 
6965 10015 
6966 100154 
6967 100156 





Suws 
AjnNuNN 


— aso 
ER Y=ayayNee 
<a —Whw 
= —\Qayo 


<2 
axe 


NN 
N 


sese8iis 
SLVysssy 


gos 
S33 
ase 


So 
= 
™ 


Ss 
—_ 

_ 
Nw 
NOOO 
oSan 


101177 
000001 


000004 
077716 


000340 


000002 


5$: 


3$: 


4$: 


6$: 


10$: 
12$: 


15$: 
18$: 


#SCMENU,RO 
PC, GETSEL 
RO 

2$ 

RO,#7 
EXTFEA 


#EXFMSG 


2$ 
RO,R4 
#PRIO7 


TTION 
i e@4TTICSR 


woo. QaTTICSR 
#TTIVEC 

(R1), TWECSAV 
#60$,(R1)+ 
(R1), TPRISAV 
#pR107, (R1) 


TSDB(RS) 
(R5) ,RO 
12$ 


#TSSR,R3 
(R$) ,RO 
183 


SEQ 0288 


«WORD SFIERR 


«WORD SFIMSG 
sMENU_ OF het LOOP SELECTIONS 
;MAXIMUM ALLOWED SELECTION 
G0 GET THES pecinise' SELECTION 


WAS ZERO SPECIFIE 
;REPEAT MENU 


ser, I CHECK FOR EXTENDED FEATURES SET 
[WARN OPERATOR EXTENDED a CLEAR 


#EX “(55 27 (SP) 


MOV #1,-(SP 
MOV SP, 
TRAP CSPNTF 


ADD #4,SP 
+60 ~ TO BASIC MENU 
AVE THE MENU SELECTION 
TRAISE THE PRIORITY 
+ A #PR107,R0 


CSSPRI 
sASSUME INTERRUPTS ARE ENABLED 
zARE TT TT! i S ON ? 
sFLAG SET IF INTERRUPTS OFF 
TER ee Ss 


SLOWER INTERRUPT ER a 


#PRI00,RO 
TR MP CSSPRI 
CONVERT TO WORD OFFSET 

; JUMP PROPER LOOP 


CCESS 
HIGH BYTE WRITE ACCESS 
‘1308 LOW BYTE WRITE ACCESS 
:TSDB MAINTE © MOD 
STSDBX WRITE ACCESS 


LEAVE THE TEST 


ENTER MAINTENANCE MODE 
READ TSBA REGISTER 
LOOP UNTIL HALTED 


smeees ot TSSR REGISTER 
sPOINT Tee “ REGISTERS 
READ TSSR REGISTER 

3LOOP UNTIL STOPPED 
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6968 
6969 100160 
6970 100164 
6971 10186 
6972 10017 
6973 100174 
6974 100176 
6975 
6976 
6977 100200 
6978 100204 
6979 100210 
6980 100212 
6981 100216 
6982 100220 
6983 100222 
6984 
6985 
6986 100224 
6987 100230 
6988 100234 
6989 100236 
6990 100242 
6991 100244 
6992 100246 
699 
994 100250 
6995 1002 
100256 
6997 100262 


7007 100306 


S585 


A) ed ed ed ed ed ed ed ed ed ed 
pes es) Www 
Bsgevvess 


SSISSSSSSSSSsss 
a 


3 
RUN SOM NANRWV—O 
sssssssssss 


Se 


= 
So 
Ww 
& 


MACRO M1113 25-MAY=82 09:19 


020174 
000002 


000000 
020174 


000001 
000000 
020174 
000000 


020174 
000000 


020174 
000003 


F 
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20$: JSR PC,GETPAT 
MOV a 
MOV #TSSR,R3 
ADD B 

228: MOV R1,(R3) 
BR 22$ 

25$: CLRB TSDB(RS) 


JSR PC,GETPAT 
MOV . 
MOV #TSDBH ,R3 


ADD e 

27$:  MOVB  R1.(R3) 
BR 278 

30$:  CLRB  TSDB(RS) 
JSR PC,GETPAT 
MOV rd 
MOV #TSDB,R3 
ADD 

32$: MOVB  R1.(R3) 
BR 32$ 

35$: JSR PC,GETPAT 
MOV : 
MOV #TS5DB,R3 
ADD R5,R3 

37$: MOV R1. (R3) 
BR 37$ 

40$: JSR PC,GETPAT 
MOV RO.R1 
MOV #TSSRH,R3 
ADD oR 

42$:  MOVB  R1.(R3) 
BR 428 


3+ 
sPROCESS CONSOLE INTERRUPTS 


60$: MOV RO,-(SP) 
MOVE a#TTIBFR,RO 
BIC #200,R0 
CMPB «#15, 
BNE 13° 
MOV #2$,2(SP) 
CLR 4(SP) 


MOV TyECSay agri vec 
MOV TPRISAV 
TTION 


BEQ 61$ 


TTIVEC+2 





sREAD by DATA PATTERN 
: ERN FOR LOOP 


SOF TSSR 
T TO TSVOS" S REGISTERS 
ZURITE DATA TO TSSR 


sENTER MAINTENANCE MODE 

READ THE DATA PATTERN 

:DATA PATTERN FOR LOOP 

;ADDRESS OF HIGH BYTE OF TSDB 
sPOINT TO TSVOS‘°S REGISTERS 

WRITE THE DATA TO TSDB, HIGH BYTE 

LOOP UNTIL STOPPED 


ENTER MAINTENANCE MODE 

sREAD THE lhe on ioe 

:DATA PATTERN FOR LOOP 

ADDRESS OF TSSR 

:POINT TO Mag + a S REGISTERS 
WRITE DATA TO TSSR, LOW BYTE 

:LOOP UNTIL HALTED BY OPERATOR 


sREAD THE DATA PATTERN 
:DATA PATTERN FOR LOOP 
SELECT TSDB 

POINT TO TSv0S* S REGISTERS 
WRITE THE DATA PATTERN 


sLOOP UNTIL HALTED 
sREAD THE DATA PATTERN 

S OF TSSR, HIGH BYTE 
sPOINT TO TSv05" S REGISTERS 


WRITE THE DATA TO REGISTER 
LOOP UNTIL HALTED 


2 SAVE WORK eeer eres 
GET THE 


VISOR PRIORITY 
SUPERVISOR INTERRUPTS ENABLED ? 
‘BRANCH IF YES 


SEQ 0289 






ae 
_ 
Se 


maa KoSacSeaeeeeeee 


ab a tk ek at et a a ss ts 


oooo ooooooo 


os 


¥ 
o 


104432 
000736 
000137 


100446 
100720 


Soooo0ceoo 


a a 
nak a ds a et ss AUT 


—Soco 
s 


100756 101024 


Sooooo0o°0o— 
ee ee ee es any 
Ss nt Ss 


Re 2 
WE EO 
NmUOo 
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BIC #100, a#TTICSR ; TURN OFF TTI INTERRUPTS 
MOV (SP)+,RO sRESTORE REGISTER 
RTI SRETURN FROM INTERUPT 
64$: 
63$: EXIT TST sEXIT THE TEST 
oo 
65$: JMP 200 RETURN TO SUPERVISOR 


3+ 
sLOCAL STORAGE FOR THIS TEST 


TTION: -WORD 0 WORD SET IF SUPERVISOR TTI INTER OFF 
TVECSAV: «WORD 0 SAVE TTI VECTOR 
TPRISAV: -WORD 0 sSAVE TTI PRIORITY 


3+ 
sMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 


EVEN 
SCMENU: .WORD 1$,2$,3$,4$,5$.6$ 
.WORD 7$,8$,9$.10$,11$,12$,0 


1$: eASCIZ <12>*SELECT SCOPE LOOP FROM FOLLOWING OPTIONS: ' 
2$: eASCIZ <12>" 0 Display This Menu’ 
3$: eASCIZ ° 1 SBA Read Access‘ 
4$: eASCIZ ° 2 TSSR Read Access’ 
5$: eASCIZ ° 3 Initialize (TSSR Write Access," 
6$: eASCIZ ° 4 TSDB High Byte Write Access‘ 
7$: eASCIZ °* 5 TSDB Low Byte Write Access’ 
8$: eASCIZ ° 6 TSDB Maintenance Mode Write Access’ 
9$: ASCIZ ° 7 TSDBX (TSSR High Byte) Write Access’ 
198: reds, a 8 Return to Diagnostic Supervisor’ 
12$: -ASCIZ ‘Type RETURN To Stop Scope Loops’ 
EXFMSG: .ASCIZ "ENA *e* Extended Features Switch Not On *** ° 
T4ONE: .ASCIZ ‘Stand-alone Scope Loops Not Executed’ 
TST4OID: eASCIZ ‘Scope Loops’ 

EVEN 

ENDTST 

110077: 
TRAP 
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} TITLE TSV6 = PARAMETER CODING 
12 
18 
19 101340 BGNMOD TSV6 
101340 TSV6:: 
3 
§ -SBTTL HARDWARE PARAMETER CODING SECTION 
24 s* 
5 3 THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
6 3; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
27 : ROS ARE NOT EXECUTED AS MACHINE ENSTRUCT IONS BUT ARE 
28 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
29 : MACROS ALLOW TH Sure Se TO ESTABLISH COMMUNICATIONS 
z ; WITH THE OPERAT 
32 101340 BGNHRD 
101340 000010 eWORD L10100-L$HARD/2 
33 101342 LSHARD: : 
34 101s GPRMA HPM1,0,0,160010,177776, YES 3GET TSBA/TSDB REGISTER ADDRESS. 
10134 31 eWORD TSCODE 
101344 101362 eWORD HPM1 
101346 160010 «WORD TSLOLIM 
101350 177776 eWORD TSHILIM 
35 Hat 33 HPM2,2,0,0,776, YES sGET VECTOR ADDRESS. 
101352 001031 .WORD TSCODE 
101354 101416 -WORD HPM2 
101356 000000 - WORD TSLOLIM 
101360 000776 WORD La! 
; GPRMD -4.0,340,0,7.,VES 3GET INTERRUP; PRIORITY. 
37 101362 ENDHRD 
EVEN 
101362 110100: 
362 04 eASCIZ ‘DEVICE hurr weiton (TSBA/TSDB) . 


105 126 HPM1: 
116 124 te eASCIZ = ‘INTERRUPT 
116 124 : ASC "INTERRUPT PRIORITY ° 
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SOFTWARE PARAMETER CODING SECTION 


.SBTTL SOFTWARE PARAMETER CODING SECTION 
¥ THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
3 MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 
101472 . BGNSFT 
101472 000003 -WORD L10101=L$SOFT/2 
101474 LSSOFT:: 
; GPRML SPM1,0,-1, YES : GET TRANSPORT TEST FLAG. 
101474 GPRML  SPM4.2.=1.YES : GET ITERATION CONTROL. 
101474 001130 «WORD TSCODE 
101476 101532 “WORD 
101500 177777 <WORD =1 
: GPRMD — SPM6,4,,7777.0,7777. YES : GET LOCAL ERROR LIMIT 
: PRMD SPM7.6.D.7777.0.7777.YES ; GET GLOBAL ERROR LIMIT 
101502 ENDSFT 
EVEN 
101502 L10101: 
101502 105 116 101 SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ' 
101532 111 116 110 SPM4: .ASCIZ ‘INHIBIT ITERATIONS ’ 
101562 120 105 122 SPM6: .ASCIZ ‘PER TEST ERROR LIMIT ° 
101612 120 105 122 SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT ° 
-SBTTL PATCH AREA 
: FINALLY A GENEROUS PATCH AREA. 
> AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7"' HACK 
; DESCRIBED IN "'SUPPRG.MEM’’ (FOR REV 
101642 PATCH:: 
101642 Bikw 32. 
102000 .=,!377¢1 
102000 LASTAD :SET LAST USED ADDRESS. 
102000 000000 “WORD 0 
102002 000000 ;WORD 0 
102004 LSLAST:: 
102004 ENDMOD 





SEQ 0292 
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SYMBOL TABLE SEQ 0293 


ADDSSR 012126 G CSAU_ = 000052 DEVDRO 0 $378 FREEHI 603130 INTCPC 016150 
ADR = 000020 G CSAUTO= 000061 DEVNRD 02331 FRESIZ OF 146 G INTFLA 016145 
AMBTSS 5 CSBRK = 000022 DEVNXR 023233 FUSI 00411 INTMAS 016144 
ASSEMB= 000010 CSBSEG= 000004 DEVONL 0 31 3 FSAU_ = 000015 INTR passe G 
A1716 = 000003 CS$BSUB= 00000. DEVSUM 023126 FSAUTO= 000020 INTREC 002224 G 
BADDAT 003156 G CEFG= 00004 DFPTBL 002156 G FSBGN = 000040 INTVEC 016146 
BADSSR 015700 G CSCLCK= 000062 DIAGMC= 000000 FSCLEA= 000007 INTX 004300 
BOVPCR= ees 34 G LEA= 000012 DICEB = 000001 = 00001 INVERT 02 G 
BENBSW 002250 G $ = 35 DSBINT 016204 FSEND = 000041 IOKCKI= 000200 
BIE = 040000 CSCLP1= 000006 DUADI2 004643 F = 0000 = 
BITO = 000001 G CSCVEC= 000036 DUFLG HE: G = 00001 IPRI 002212 G 
BITOO = 000001 G CLN= 000044 DUMMY 0030 FSINIT= 000006 SR 100 G 
BITO1 = 000002 G C$DODU= 000051 EF .CON= 000036 G = 00005 IVEC 002210 G 
BITO2 = 000004 G CSDRPT= 000024 EF .NEW= 000035 G FSMOD = 00000 IXE = 004000 G 
BITOS = 000010 G C$DU = 0 «PWR= 000034 G SMSG = 000011 ISAU_ = 000041 
BITO4 = 000020 G CSEDIT= EF .RES= 000037 G FSPROT= 000021 ISAUTO= 000041 
BITOS = 000040 G CSERDF= 000055 EF.STA= 00 = 00001 ISCLN = 000041 
BITO6 = 000100 G RHR= DU 016777 FSRPT = 00001 ISDU_ = 000041 
BITO7 = 000200 G RO= 0 E = 0 FSSEG = 00000 ISHRD = 000041 
BITO8 = 000400 G CSERSF= 000054 ENAINT 01615 FSSOFT= 000005 ISINIT= 000041 
BITO9 = 001000 G CSERSO= 0000 ENVIRN 020630 FSSRV = 000010 ISMOD = 000041 
BIT! = 000002 G CSESCA= 000010 EPRTSW 2200 F$SUB = 000002 ISMSG = 000041 
BIT10 = 002000 G CSESEG= 000005 EPRT 006360 F$SW = 000014 ISPROT= 000040 
BIT11 = 004000 G CSESUB= 000 EPRT2 6360 FSTEST= 000001 ISPTAB= 000041 
BIT12 = 010000 G CSETST= 000001 ERCM 11733 GDDAT 003160 G ISPWR = 000041 
BIT13 = 020000 G CSEXIT= 000032 ERRHI 002236 G GERR 7 ISRPT = 000041 
BIT14 = 040000 G C$GETB= 00002 ERRK 016756 GETPAT 020174 G ISSEG = 000041 
BIT1S = 100000 G C$GETW= 000027 ERRLO 002240 G GETSEL 020256 G ISSETU= 000041 
BIT2 = 000004 G = 000043 ERRNO = 002261 GSCNTO= 00 ISSFT = 000041 
BITS = 000010 G = 000042 ERRVEC= 000004 GSDELM= 00037 ISSRV = 000041 
BIT4 = 000020 G C$GPLO= 000030 TABE 003376 GSDISP= 00000 ISSUB = 000041 
BITS = 000040 G CSGPRI= 00004 ERTABL 003176 GSEXCP= 000400 ISTST = 000041 
BIT6 = 000100 G CSINIT= 000011 ESUM 016760 GSHILI= 000002 JSJMP = 000167 
BIT? = 000200 G CSINLP= 000020 L_ = 000004 GSLOLI= 000001 KIPARO= 172340 
BIT8 = 000400 G = 000050 EXBCNT= 000010 $NO 000000 KIPARI= 172342 
BIT9 = 001000 G CSMEM = 000031 EXFMSG 101177 SOFFS= 000400 KIPAR2= Lt oe 

= 00 G CSMSG = as 34 EXPBRE 015502 G GSOFSI= 000376 KIPARS= 172346 
BRINIT 004457 CSOPEN= 0000 EXPD 002232 G PRMA= 000001 KIPAR4= 172350 
BSELO = CSPNTB= 000014 XPGOT 00453 GSPRMD= 000002 KIPARS= 172352 
BSEL1 = 000001 CSPNTF= 000017 EXPGT2 004567 = 000000 KIPAR6= 172354 
CHK 016044 CSPNTS= 00001 EXPMSG sp 26 GSRADA= 000140 KIPAR7= 172356 
C 020500 G CSPNTX= 00001 EXPREC 015474 G RADB= KIPDRO= 172300 
CHKTSS 016336 C$Q10 = 000377 EXTA 00577 GSRADD= 000040 KIPORI= 172302 
CKDROP 017202 000007 EXTEND 00577 GSRADL= BASS KIPDR2= 172304 
CKEMAX 017102 EFG= 000047 EXTFEA 002226 G 0020 KIPORS= 17, 306 
CKMSG 011360 G CSRESE= 000033 ESEND = 00 GSXFER= 000004 KIPDR4= 17231 
CKMSG2 011500 G C$REVI= 000003 ESLOAD= 0000 GSYES = 000010 KIPDRS= 172312 
CKRAM 011114 G CSRFLA= 000021 FATERR= HIADDR= 001400 KIPDR6= 17. ae 
CKRAM2 011224 G C$RPT = 000025 FATFLG 002 G HOE = Worse G KIPOR7= 172316 
CMDPKT 021260 G CSSEFG= 000046 FERCM 011 HPM1 101 KTENAB 0035134 G 
CMPMEM 017660 CSSPRI= 00004 FIFEXP 012170 G or 10141 KTFLG 003132 G 
CONFIG 017250 CSSVEC= 37 FIF IMS 4 $f HPM 10144 KTINIT 961932 
COUNT 002510 G CSTPRI= 13 FIF2MS 01231 IBE = 010000 G KTOFF iste 
CSRADD 002206 G DATA 002312 G FILLME 4 seg IpbU = sites G KTON 01725 
CTAB 003164 G DATASC 02023 FNOINT 421 IER = 020000 G LERRMA 2172 G 
CTABE 003176 G DEBUGM onaS3 FORCER eS S G IFAULT 8 56 LERRNO= 
CTABM § 003164 G DEVCNT 002220 G FREE 003124 G INCERK 017044 LISTAL= 000001 
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| SYMBOL TABLE SEQ 0294 
LOE = 040000 G LSUNIT 002012 G L10071 056510 OFL_ = 000100 PRMNO 002320 G 
LOOPCN 002216 G L10000 00 1g L10072 057754 ONEFIL= 000000 PRMSG 912335 G 
LOOPCO 013126 L10001 002176 L10073 066644 OSAPTS= 000000 PRMSGO 01473 
LOOPFL 3162 G L10002 005766 L10074 065004 OSAU = 00000 PRMSG] 014777 
Lot = 10 G L1000$ 012044 L10075 074506 OSBGNR= 000001 PRMSG2 015035 
LSACP) 36 002110 G L10004 012062 L10076 44 94 OSBGNS= 000001 PROASC 014420 
LSAPT poc0as G i10005 Bisioe L10077 101 O$dDU = 000001 PRIASC 014465 
LSAU_ = 022352 G L10006 012106 L10100 10136 OSERRT= 000000 PST3 003152 G 
LSAUT 002070 G L10007 012124 L10101 10150 OSGNSW= 000001 022304 
LSAUTO 022556 G L10010 012142 MEMADD 013754 G OSPOIN= 000001 Pw.D11= 000021 
LSCCP 002106 G L10011 012166 MEMCK 021276 G O$SSETU= 000000 Pw.013= 000022 
LSCLEA 022636 G eta 012240 MENASC 020447 PASR 940033 Pw.D22= 00002 
L$CO =—--—s«€0E.02032 G L10013 012410 MENERR 020374 PATC 1 iS36 G PW.NOP= 
LSDEPO 002011 G L10014 013124 MENRES 0 9328 PATDAT 020230 PW.NO1= 2 
LSDESC 003410 G L10015 013752 MIMENU 07337 PC.ERA= 002400 PW.RDE= 000024 
LSDESP 002076 G L10016 013774 MMVEC = 000250 PC. IER= 002000 Pw. RDR= 
LSDEVP 002060 G L10017 015500 MSA.FR= 000006 -NOO= 001000 Pw.RDS= 000005 
LSDISP 002124 G L10020 015506 MSA.NO= 000000 PC.REL= 000000 PW.RFI= 
LSDLY 002116 G L10021 015514 MSA.NR= 000004 PC.REW= 000400 Pw.WCT= 
LSDTP 002040 G 1 10S6 015526 MSA.VO= 000002 PKBCNT= 006 PW.WF I= 
LSDTYP 002034 G L10025 015550 MSGEXP 012144 G PKHI = 000004 PW. WFM= 
L$DU_ =: 022450 G 110024 01557 MSGLOO 013064 G PKLOW = 000002 Pw.WMI= 000010 
L$dUT 002072 G L10025 015736 MSGSTA 012350 G PKTADD 7554 PW.WNP= 000011 
LSDVTY 003402 L10026 016246 MSGSUB 013742 G PKTFRM 007516 Pw.WTR= 000002 
LSEF 002052 G L10030 022302 MS.ATT= 000006 PKTGET 012064 G P.ACK = 100000 
LSENVI 002044 L10031 022446 MS.EXT= 000200 PKTMES 012110 G P.CMD = 000037 
LSETP 002102 G ete 022554 MS.RSD= 000001 PKTRAM 004745 G P.CONT= 000012 
LSEXP1 002046 G L10033 022634 MS.RSF= 00002 PKTSSR 012046 G P.CVC = 040000 
LSEXP4 002064 G L10034 022662 MS.RST= 000010 = 001000 G P.FMT = 000140 
LSEXPS 2066 G L10035 023124 186 005554 SF TAA P.FORM= 000011 
LSHARD 101342 G L10036 024424 M8189 005645 PRASC 01452 P.GETS= 000017 
LSHIME 002120 G 110037 026416 = 002000 PRBEXP 015470 P.IE = 000200 
LSHPCP 002016 G £10040 024700 NEWPAS 022010 PRBMSG 015336 P.INIi= 000013 
LSHPTP 002022 G L10041 025144 NODEV 003114 G 01547 P.MODE= 007400 

002156 G + iooee 031772 NOEXTF O20 188 PRBTOT Bt ass P.OPP = 020000 
LSICP_ 002104 G L10045 026772 NOINIT 335 PRBYTE 015122 G P.POSI= 000010 
LSINIT 021556 G L10044 027262 NOINTR 004221 I___= 002000 G P.READ= 000001 
LSLADP 002026 G L10045 027560 ITS 002170 G PRIADD dh +4 P.SWB = 010000 
LSLAST 102004 G Pionee 030170 20534 PRIAO 010230 P.WRIT= 000005 
LSLOAD 002100 G L10047 034562 M 5460 PRIBXO perele G P.WRTC= 000004 
LS$LUN 002074 G L10050 032326 NP.IR = 000200 PRIEQU Bt 006 P.WRTS= 000006 
LSMREV 002050 G L10051 032720 -LO00= 000040 PRIPKT 007370 G QvP 002204 G 
LSNAME 00 G + se 033326 NP.OUT= 000100 PRIRAM 910066 RAMASC 01415 
LSPRIO 002042 G L10053 040354 NP.WRP= ares PRITAD oes 4 RAMDAT Boees G 
LSPROT 021546 G L10054 035646 0041 $ PRITSS age RAMERR 015510 G 
LSPRT 002112 G L10055 00 NSINIT 00440 PRITO 010356 RAMEXP 015530 G 
LSREPP 00 G ees 050466 ent 4 PRIT1 10421 RAMFOR 010116 
LSREV 002010 G L10057 040660 NULCR 004530 PRIXOR 7742 G RAMS IZ BOs 206 G 
LSRPT 022 L10060 544 NXM = 004000 PRIOO = 000000 G RAMT oh 516 G 
LSSOFT 101474 G L10061 043430 NXMFLG 003136 G PRIO1 = 000040 G RCVHIA 304 G 
L$SPC_ 00. Bt 43 044006 NX 003142 G mais = 000100 G RCVLOA 002306 G 
LS$SPCP 00 L1006 ea 94 XML 003140 G PRIOS = 94 G RDERR 005206 
LSSPTP 002024 G L10064 046324 NXMTST 02145 PRIO4 = G RECMSG bosses G 
L$STA 0020350 G L10065 051746 XR 00374 PRIOS = 000240 G RECV 002254 G 

002166 G Lie gess7s NXRERR 005736 G pais = 000500 G REGSAV Osess 
LSTEST 002114 G £1098 05375 XRX 00377 PRIO? = 000 G RETERR 537 
LSTIAL 14 6 L10070 05524 NXTU 022022 PRMESS 01424 REWIND 011014 G 
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SYMBOL TABLE SEQ 0295 
RMCHBE= 000167 $1.11D= 004000 TST401 101322 T10 066646 G TISBFR 033372 
RMCHEN= 000200 $1.11R= 020000 13¥6 2000 G 111 074510 G TISBF2 034060 
SGB= 000215 $1.12R= 040000 SV 002176 G rig 67796 G T158S0 034060 
RMMSGE= 000234 $1.PAR= 100000 TSV4 021546 G TI2BFR 030 g T158S1 034061 
RMPKTB= 000201 S2.ATI= 000010 TSV5 023446 G T128KG 0307 TISDAT 033360 
RMPKTE= 21 S2.BT1= 000004 SV6 101340 G rete 030314 T15L00 Bates 
RMR = 01 S2.DIM= 000200 TTIBFR= Ae 5 G TI2CHA 031730 TISPAC 035350 
RWPACK 011110 S2.ILW= 000100 SR= 177560 G A 031510 G TISPK2 034050 
Sc =1 S2.INR= 000020 100406 TI2CON 031316 TISRES 034452 
SCE = 020000 yee 000040 2 071434 TI2DAT 030250 TISRT2 034524 
SCHERR 005300 S2.UND= 000003 TTIVEC= 000060 G TI2DPR 031116 TISSSR 93208§ 
CME 005013 TBLEND= 003062 G VECSA 1 T12GET rete rraes 03406 
CMENU 100414 006476 TVSAV2 071436 TI2HIA 03030 T15S 034064 
SDELAY 01 006676 GC= 1 TI2KT 030310 TI6BEN 040240 
SELASC 020442 TEMP? 003116 G TSCODE= 001130 rig 0 030304 TIO6OBFR Be0e ts 
SELDAT= TEMP2 003120 G RRN= 002261 T12L00 peaaee TI6BFS 04023 
SEL2 = TERCLS= 000016 TSEXCP= 000000 TI2MSG 030641 TI6CLR 040056 
SETMAP 017316 TESTNO= 000014 TSFLAG= 000040 TI2NIN 031025 TI6DAT 040200 
SETU 022106 ASC 35 = TI2NXM 031207 T160T2 040250 
SFFMSG 012102 G TFCASC 006537. TSHILI= 000776 TI2PAC 030240 716001 036632 
SFHERR 003705 TIMEXP 015552 TSLAST= 000001 TI2PAR 030306 T16D28 036634 
SFIERR 003652 TIMSGO 015600 TSLOLI= 000000 TI2SET 031666 T16D53 036636 
SFIMSG 012034 G TINERR 0120217 TSLSYM= 010000 TI2SWR 031620 T16972 036640 
SFPTBL 002166 G TMPBFR 002632 G TSLTNO= 000014 TI2TBE Bspecs TI6LEN O3ca05 
SIFLAG 003154 G TNAM =: 016704 TSNEST= 177777 TI2WRT 03055 TI6L00 03460 
SIMSG 011766 TPRISA 100412 TSNSO = 000000 T121L0 026560 rieees 040170 
SKIPT 003400 TPSAV2 071440 TSNS1 = 000005 T122L0 027114 TI6PK2 040240 
SOFINI 015774 G TRANST 002166 G TSNS2 = 00000 T1235L0 027334 TI6REJS 037274 
SPACE 010466 TSBA = 000000 G TSNSS = 00000 T124L0 027734 16RES 040010 
SPM1 101502 TSBAH = 000001 G TSPT 0000 TI24TS 0 2345 TI6SEX 040150 
SPM4 101532 TSOB = 000000 G TSSAVL= 177777 TISBFR 02406 TI6SRD 04010 
SPM6 101562 TSDBH = 000001 G TSSEGL= 177777 TISDAT 024050 TI6SSR 03671 
SPM7 101612 TSFCOD 007236 TSSEKO= 010 TI3LCO 023464 S38 037060 
SRO = 177572 TSREJ = 000006 Ss TISMEM 024155 T16T01 037411 
SRI = 177574 TSSDEF 00 TSTAGL= 17777 TISNBA 024214 T16T28 037510 
SR = 177576 TSSR = 000002 G TAGN= 0 TISPAC 024040 T16T53 037610 
SR = 172516 TSSRBI 003502 G TEMP= TISRES 024 26 116778 037710 
SSR___ = 000200 TSSRFO 006415 TSTEST= 000014 TISSSR 02426 TI6WMI 04012 
STATCO 012412 TSSRH = 000003 G TSTSTM= 177777 TI4BFR 025176 T162SS 03674 
SVCGSL= 000000 TSSX 004020 TSTSTS= 1 T148S0 3 5170 iy eo et 13 
SVCINS= 000000 TSTBLK oo55tt G TSSAU_= 010031 714881 5171 TI7BEN 050 
000001 TSTCNT 00 at G TSSAUT= 010033 T148S2 0 3178 TI7BFR 05022 
SVCT 000000 STEND 016720 TSSCLE= Hh 3 TI4DAT 02517 TI7BFS 050 
SvCTST= 000001 TSTFLA 002314 G T$$DU = 0100352 TI4DTA 025610 TI7CLE 050126 
SSLSYM= 010000 TSTLOO Big336 G TSSHAR= 010100 TI4L00 024444 TI7CLR 04774 
$0.1DB= 000010 TSTPTR 00 318 G TS$HW = Hh 49 TI4NBA 0 3666 TI7DAT 050210 
- 1FB= 000002 TSTSET 016510 G TSSINI= 010030 TI4NIN 02606 T170T2 050 
a 000001 TST121 030450 TSSMSG= 010025 iepeS 5160 TI7EXE 6504 
$0.ILD= 000020 TST13I 024102 TSSPR 10027 T14PK 5600 TI7EXP 046 
° 000040 TST141 026241 TSSRPT= 0100355 TI4RES 6306 TI7EXS 640 
SO.IRD= 000100 TST151 433 TSSSEG= 010000 TI4RST g 4 TI7L00 040404 
° TST161 036642 TSSSOF = 4 1 T14SSR 773 T17MSK | 56 
$0. 200 TST171 6606 TSSSRV= 010026 TI4TSB $133 TI7PA 5 38 
$1. 002000 TST181 05117 TS$SUB= 010074 T142R 67 T17PK 5055 
$1.1E0= 010000 TST191 016 TS$SW = 4 115 14 TI7RFI 050106 
.$1.1FM= 001000 TST201. 0651 TSSTES= 190 7? TISAM $ TI7RSF 050004 
$1. 1HE= 000400 TSTS91 0776 11 23446 G T1SAM4 TI7SET 050146 





SEQ 0296 









060223 13 026420 G T39NBA 077205 WF .1ED= 000010 
062122 T3BFLG 003150 G T39NE 076503 WF. IER= 000004 
06 13.1 02 446 T3ONFL 076500 WF. IHI= 000200 
0621 13. 027006 T390FF 077475 WF. IRE= 00004 
06152 13. 027276 T390F2 076744 WF. IWF= 000020 
060660 13.4 027574 T390N. 077504 WF. 1WR= 000100 
060742 T3BASC 074441 T390N2 077010 WF .13R= 000002 
060260 T38ASN 074460 T39PAC 075730 F.14R= 000 
061036 T38ASO 0743 T39PK2 076430 TCHR 010662 G 
060324 T38AS1 07440 T39PK3 076460 WRTERR 00511 
060371 071466 T39PK4 076470 WRTMSG 005056 
061124 T38BS0 071460 T3ORES 077574 SMBK 021270 G 
060434 T38BS1 071461 9RL 077570 XFERAS 015740 
061200 071462 T39SBS 077423 KNXM 016376 
06050 T38CNT 074504 T39SFS 077351 XORBFO 00767 
06126 T38DAT 073774 T39S1Z 076476 XORFOR 010012 
06054 T38DLY 07144 T39SSR 077261 XSTO = 000006 G 
061351 T38DSW 072170 T39TAD 075 40 XST1 = 000010 G 
060612 T38DTA 072160 77126 XST2 = 000012 G 
061440 T38EAI 072166 T39WR 076472 XST3 = 000014 G 
2 024426 G T38E O7214¢ T39WRT 077053 XST4 = 000016 G 
024444 T381D 07334 1% 031774 G XSOBOT= 000002 
TI8LO0 050506 T2 024714 T38INT 072736 14.1 032024 XSOEOT= 000001 
TI8MSK 051142 T2OBEN 066522 13 074034 14.2 032330 XSOIE = 000040 
TISPAC 051660 T20BFR 066402 T38MSG 073305 1.3 032722 XSOILA= 000400 
051730 T20BFS 06642 T38MS1 073146 T460NE 101255 XSOILC= 001000 
TIBSET 051550 T20CLE 066314 T38MS2 073241 15 034564 G XSOLET= 020000 
TI8SMI 051526 T20CLR 066102 T38MS3 072305 15.1 034602 XSOMOT= 0002 
TI8SRD 051506 2 066007 13 072572 15. 03566 XSONEF= 002000 
TI8SSR 051235 T20DAT 066370 T38NE 072230 16 040356 G XSOONL= 000100 
T18XS 051172 T20DT2 066540 T380FL 073022 76.1 040404 XSOPED= 9000 
T182S$ 051272 TOOEXE 06516 T380NL 072766 16.2 040674 XSORLL= 010000 
T183SS 051336 T20EXP 06504 T38PAC 071450 16.3 2104 XSORLS= 040000 
TISBEN 062452 T20EXS 065 T38PK2 072150 16.4 444 XSOTMK= 100000 
TI9BFC 057776 T20L00 062614 T38PK3 072200 16.5 4022 XSOVCK= 000020 
TI9BFR 062332 T20MSK 065036 T38PK4 072220 16.6 045276 XSOWLE= 
T19BFS 352 T20PAC 066360 T38RES 073776 T 050470 G SOWLK= 
TISCLE 062200 Te0PK 066530 T38S12 072226 18 051750 G XXCOMM 003122 G 
TISCLR 0617346 T2ORFI 066166 T38SSR 072646 78.1 051766 XSALWA= 
TI9SCNV 062244 T2ORSF 065706 T38SST 073056 8. 053766 XSFALS= 000040 
TISDAT 062320 TOOSET 066334 T38TAD 071460 18. 055254 XSOFFS= 000400 
T19DT2 062470 T2OSEX 066276 T38WLE 072525 18.4 05 24 X$TRUE= 000020 
TI9EXE 0601 T20SRD 06612 T38WR 072222 19 062576 G 1.COR= 02 
TI9EXP T20SSR 065211 T38WRL 07 464 79.1 062614 X1.DLT= 1 
TI9EXS T20SWP 065577 T38WRT 072400 UAM 000200 G X1.MBZ= 01737 
TI9L00 051766 T20WFI 066 T39BFR 075746 UNITN 002202 G /RBP= 
19MSK 0600 T2OWFM 06624 739880 07574 UNREC = 0000 X1.SPA= 040000 
TI9PAC 310 T20WMI 06626. 139881 075741 USI 1 X1.UNC= 2 
TI9PK2 T20WNP 066146 13988e 7574 WAITF 016250 G X2.BUF= 000100 
TISPRE 057776 T ess 06524 T39DAT 07757 WC.1FA= 000200 X2.EXT= 000200 
TIORE I T2038S 06531 T39DLY 0757 “IFES 0 i 1 
TIORSF T204SS 065 5 T39DSwW 076450 -1G60= X2.RCE= 9000 
TIORST 061630 T205SS 065422 T39DTA 076440 WC. IRE= 000010 X2.REV= 7 
TI9SET 220 T206SS 065466 T39EAI 0764/6 WC. IRW= 000004 X2.SPA= 035400 
TI9SEX 1 T BSS 065531 T39ETN 076651 WC. 10T= 000100 X2.UNI= 900007 
TI9SNP , 0620. T 003144 G T39ETS 76566 WC.11T= 00004 X2.WCF= 002000 
TI9SRD ° 061760 1238 «6-003 146 G T39MCi_ 97751 we. 15R= 00002 x3.DCk= 10 
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X3.MBZ= 000006 X3.REV= 000040 X3.TRF= 000020 
x3 MDE= 177400 X3.RIB= 000001 X4.HSP= 100000 
X3.0PI= 000100 X3.SPA= 000200 


- ABS. 102004 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 31032 wer ( 122 PAGES) 
Ape 3 " eessg wanes « 78 PAGES) 
CVTSBAO, CVTSBAO=SVC/ML, TSV1B, TSV22B, TSV38,TSV4, TSV55B8, TSV6 


N 7 


017400 
040000 


X4.TSM= 020000 
X4.WRC= 000377 


SEQ 0297 


